Regression on presence

Calculate some info per sample

#calculate the Shannon-Wiener diversity (with diversity function from vegan package) for all species
df.sample_data$diversity <- apply(df.sample_data[df.species_all$colname], MARGIN=1, diversity)
#calculate the Shannon-Wiener diversity (with diversity function from vegan package) for nursery species
df.sample_data$nursery_diversity <- apply(df.sample_data[nursery_species$colname], MARGIN=1, diversity)

#calculate number of species for all species by summing the presence/absence columns for those species
df.sample_data$num_species <- apply(df.sample_data[c(df.species_all$colname_pres)],MARGIN=1,sum)
#calculate number of species for nursery species by summing the presence/absence columns for those species
df.sample_data$num_nursery_species <- apply(df.sample_data[c(nursery_species$colname_pres)],MARGIN=1,sum)

#calculate number of fish
df.sample_data$num_fish <- apply(df.sample_data[c(df.species_all$colname)],MARGIN=1,sum)
#calculate number of nursery fish
df.sample_data$num_nursery_fish <- apply(df.sample_data[c(nursery_species$colname)],MARGIN=1,sum)

df.sample_data <- merge(x=df.sample_data, y=df.sites, by.x="location", by.y="name", all.x=TRUE)

Nursery species

Create a subset of the data for only the nursery species by creating a list of columns to include, and then making a new dataframe with only those colunms.

nursery_columns <- c(c("location","depth","transect","date","nursery_diversity","num_nursery_species","num_nursery_fish"),nursery_species$colname, nursery_species$colname_pres) #columns for nursery species analysis
df.nursery_sample_data <- df.sample_data[nursery_columns] # subset of the data with only the nursery species

Summary

It is good to first have a summary of your data frame to see if there are any strange things showing up (NA values, values that are too high/low, etc).

summary(df.sample_data[c("location","depth","transect","date","diversity","num_species","num_fish")])

##           location   depth        transect         date           
##  Antulang     : 40   5m :180   Min.   :1.00   Min.   :2016-03-16  
##  Guinsuan     : 40   10m:180   1st Qu.:1.75   1st Qu.:2016-03-29  
##  Malatapay    : 40             Median :2.50   Median :2016-04-08  
##  Andulay      : 40             Mean   :2.50   Mean   :2016-04-13  
##  Basak        : 40             3rd Qu.:3.25   3rd Qu.:2016-05-04  
##  Lutoban South: 40             Max.   :4.00   Max.   :2016-05-25  
##  (Other)      :120                                                
##    diversity      num_species       num_fish     
##  Min.   :0.000   Min.   : 0.00   Min.   :  0.00  
##  1st Qu.:2.093   1st Qu.:12.00   1st Qu.: 37.00  
##  Median :2.324   Median :16.00   Median : 58.00  
##  Mean   :2.256   Mean   :16.42   Mean   : 66.04  
##  3rd Qu.:2.529   3rd Qu.:20.00   3rd Qu.: 88.00  
##  Max.   :3.302   Max.   :38.00   Max.   :222.00  
## 

summary(df.nursery_sample_data[c("location","depth","transect","date","nursery_diversity","num_nursery_species","num_nursery_fish")])

##           location   depth        transect         date           
##  Antulang     : 40   5m :180   Min.   :1.00   Min.   :2016-03-16  
##  Guinsuan     : 40   10m:180   1st Qu.:1.75   1st Qu.:2016-03-29  
##  Malatapay    : 40             Median :2.50   Median :2016-04-08  
##  Andulay      : 40             Mean   :2.50   Mean   :2016-04-13  
##  Basak        : 40             3rd Qu.:3.25   3rd Qu.:2016-05-04  
##  Lutoban South: 40             Max.   :4.00   Max.   :2016-05-25  
##  (Other)      :120                                                
##  nursery_diversity num_nursery_species num_nursery_fish
##  Min.   :0.0000    Min.   : 0.000      Min.   : 0.00   
##  1st Qu.:0.6921    1st Qu.: 2.000      1st Qu.: 5.00   
##  Median :1.0549    Median : 4.000      Median : 9.00   
##  Mean   :1.0328    Mean   : 3.933      Mean   :13.94   
##  3rd Qu.:1.4236    3rd Qu.: 5.000      3rd Qu.:18.25   
##  Max.   :2.3155    Max.   :13.000      Max.   :96.00   
## 

Statistics per site

We want to see some data per site with mean, standard deviation, number of rows (n) and sum of the number of species and diversity of both all species and the nursery species.

The aggregate function calculates aggregate values. Here we select first only a number of columns that we want to have aggregate statistics on by specifying c('num_species','diversity','num_nursery_species','nursery_diversity') Then we select what we want to aggregate these variables by with by=list(df.sample_data$location). Lastly we tell the aggregate function how to aggregate the data. We make a very simple that calculates and returns the mean, sum, sd (standard deviation) and number of values. Everything is stored in df.summarydata.

df.summarydata <- aggregate(df.sample_data[c('num_species','diversity','num_nursery_species','nursery_diversity')], by=list(df.sample_data$location), FUN=function(x) c(mean=mean(x), sum=sum(x),sd=sd(x),n=length(x)))
df.summarydata <- do.call(data.frame, df.summarydata)

This is the result.

Group.1	num_species.mean	num_species.sum	num_species.sd	num_species.n	diversity.mean	diversity.sum	diversity.sd	diversity.n	num_nursery_species.mean	num_nursery_species.sum	num_nursery_species.sd	num_nursery_species.n	nursery_diversity.mean	nursery_diversity.sum	nursery_diversity.sd	nursery_diversity.n
Antulang	16.000	640	4.326424	40	2.291623	91.66492	0.3613185	40	3.350	134	1.577892	40	0.9501439	38.00576	0.4231377	40
Guinsuan	12.525	501	8.019168	40	1.886781	75.47126	0.8321280	40	4.200	168	3.275394	40	1.0219368	40.87747	0.7275349	40
Malatapay	14.050	562	4.308310	40	2.103819	84.15275	0.4562615	40	3.600	144	1.645507	40	0.8684182	34.73673	0.4907144	40
Andulay	17.425	697	4.471491	40	2.334273	93.37092	0.3204805	40	3.350	134	1.406031	40	0.9660165	38.64066	0.4261184	40
Basak	20.250	810	6.882717	40	2.435841	97.43362	0.4747623	40	6.250	250	2.609155	40	1.4957953	59.83181	0.5769895	40
Lutoban South	14.100	564	3.002563	40	2.256909	90.27634	0.2591387	40	4.050	162	1.484104	40	1.1193685	44.77474	0.4063301	40
Lutoban Pier	11.825	473	3.177545	40	2.080792	83.23168	0.3339031	40	2.825	113	1.152200	40	0.7618446	30.47378	0.3582693	40
Kookoos Nest	16.775	671	3.254090	40	2.279598	91.18393	0.1957175	40	2.975	119	1.290746	40	0.8785460	35.14184	0.3739071	40
Dauin Poblacion	24.800	992	4.815573	40	2.633065	105.32258	0.2385860	40	4.800	192	2.126753	40	1.2331821	49.32728	0.4646023	40

Dirkje prutsels

name	distance_seagrass	size_seagrass	distance_mangroves	size_mangroves	mpa	north
Antulang	25	0.15	3188	6721	non-mpa	south
Guinsuan	15	1.83	4174	15468	non-mpa	north
Malatapay	53	0.65	6174	15468	non-mpa	north
Andulay	106	0.01	1980	6721	mpa	south
Basak	49	3.89	4849	15468	mpa	north
Lutoban South	22	15.34	455	5832	mpa	south
Lutoban Pier	9	15.18	182	5932	non-mpa	south
Kookoos Nest	1511	0.05	2166	40918	non-mpa	south
Dauin Poblacion	15	0.13	15336	15468	mpa	north

Nursery species columns: 1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104

ANOVA

  res <- aov(df.sample_data$num_nursery_species ~ df.sample_data$location)
  print(summary(res))

##                          Df Sum Sq Mean Sq F value   Pr(>F)    
## df.sample_data$location   8  365.6   45.71   11.95 4.28e-15 ***
## Residuals               351 1342.7    3.83                     
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){})
  qqnorm(res$residuals)
  qqline(res$residuals)

  shapiro.test(res$residuals) #no normal distribution

## 
##  Shapiro-Wilk normality test
## 
## data:  res$residuals
## W = 0.98304, p-value = 0.0003061

    #square root used for count data; whereas log is used for size data
  res_sqrt <- aov(sqrt(df.sample_data$num_nursery_species) ~ df.sample_data$location)
  print(summary(res_sqrt))

##                          Df Sum Sq Mean Sq F value   Pr(>F)    
## df.sample_data$location   8  19.24  2.4055   7.459 3.41e-09 ***
## Residuals               351 113.20  0.3225                     
## ---
## Signif. codes:  0 '***' 0.001 '**' 0.01 '*' 0.05 '.' 0.1 ' ' 1

  par(mfrow=c(1,2)) 
  plot(fitted(res_sqrt),residuals(res_sqrt),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  tryCatch( 
    lines(smooth.spline(fitted(res_sqrt), residuals(res_sqrt))), 
    error=function(e){})
  qqnorm(res_sqrt$residuals)
  qqline(res_sqrt$residuals)

  shapiro.test(res_sqrt$residuals) #even less normal distributed

## 
##  Shapiro-Wilk normality test
## 
## data:  res_sqrt$residuals
## W = 0.93556, p-value = 2.253e-11

  TukeyHSD(x=res, 'df.sample_data$location', conf.level=0.95) #not allowed to use, since data is not normal distributed

##   Tukey multiple comparisons of means
##     95% family-wise confidence level
## 
## Fit: aov(formula = df.sample_data$num_nursery_species ~ df.sample_data$location)
## 
## $`df.sample_data$location`
##                                        diff         lwr          upr
## Guinsuan-Antulang              8.500000e-01 -0.51508621  2.215086211
## Malatapay-Antulang             2.500000e-01 -1.11508621  1.615086211
## Andulay-Antulang               1.687539e-14 -1.36508621  1.365086211
## Basak-Antulang                 2.900000e+00  1.53491379  4.265086211
## Lutoban South-Antulang         7.000000e-01 -0.66508621  2.065086211
## Lutoban Pier-Antulang         -5.250000e-01 -1.89008621  0.840086211
## Kookoos Nest-Antulang         -3.750000e-01 -1.74008621  0.990086211
## Dauin Poblacion-Antulang       1.450000e+00  0.08491379  2.815086211
## Malatapay-Guinsuan            -6.000000e-01 -1.96508621  0.765086211
## Andulay-Guinsuan              -8.500000e-01 -2.21508621  0.515086211
## Basak-Guinsuan                 2.050000e+00  0.68491379  3.415086211
## Lutoban South-Guinsuan        -1.500000e-01 -1.51508621  1.215086211
## Lutoban Pier-Guinsuan         -1.375000e+00 -2.74008621 -0.009913789
## Kookoos Nest-Guinsuan         -1.225000e+00 -2.59008621  0.140086211
## Dauin Poblacion-Guinsuan       6.000000e-01 -0.76508621  1.965086211
## Andulay-Malatapay             -2.500000e-01 -1.61508621  1.115086211
## Basak-Malatapay                2.650000e+00  1.28491379  4.015086211
## Lutoban South-Malatapay        4.500000e-01 -0.91508621  1.815086211
## Lutoban Pier-Malatapay        -7.750000e-01 -2.14008621  0.590086211
## Kookoos Nest-Malatapay        -6.250000e-01 -1.99008621  0.740086211
## Dauin Poblacion-Malatapay      1.200000e+00 -0.16508621  2.565086211
## Basak-Andulay                  2.900000e+00  1.53491379  4.265086211
## Lutoban South-Andulay          7.000000e-01 -0.66508621  2.065086211
## Lutoban Pier-Andulay          -5.250000e-01 -1.89008621  0.840086211
## Kookoos Nest-Andulay          -3.750000e-01 -1.74008621  0.990086211
## Dauin Poblacion-Andulay        1.450000e+00  0.08491379  2.815086211
## Lutoban South-Basak           -2.200000e+00 -3.56508621 -0.834913789
## Lutoban Pier-Basak            -3.425000e+00 -4.79008621 -2.059913789
## Kookoos Nest-Basak            -3.275000e+00 -4.64008621 -1.909913789
## Dauin Poblacion-Basak         -1.450000e+00 -2.81508621 -0.084913789
## Lutoban Pier-Lutoban South    -1.225000e+00 -2.59008621  0.140086211
## Kookoos Nest-Lutoban South    -1.075000e+00 -2.44008621  0.290086211
## Dauin Poblacion-Lutoban South  7.500000e-01 -0.61508621  2.115086211
## Kookoos Nest-Lutoban Pier      1.500000e-01 -1.21508621  1.515086211
## Dauin Poblacion-Lutoban Pier   1.975000e+00  0.60991379  3.340086211
## Dauin Poblacion-Kookoos Nest   1.825000e+00  0.45991379  3.190086211
##                                   p adj
## Guinsuan-Antulang             0.5839211
## Malatapay-Antulang            0.9997225
## Andulay-Antulang              1.0000000
## Basak-Antulang                0.0000000
## Lutoban South-Antulang        0.8041557
## Lutoban Pier-Antulang         0.9560810
## Kookoos Nest-Antulang         0.9948748
## Dauin Poblacion-Antulang      0.0277824
## Malatapay-Guinsuan            0.9077026
## Andulay-Guinsuan              0.5839211
## Basak-Guinsuan                0.0001368
## Lutoban South-Guinsuan        0.9999945
## Lutoban Pier-Guinsuan         0.0467963
## Kookoos Nest-Guinsuan         0.1187431
## Dauin Poblacion-Guinsuan      0.9077026
## Andulay-Malatapay             0.9997225
## Basak-Malatapay               0.0000001
## Lutoban South-Malatapay       0.9828828
## Lutoban Pier-Malatapay        0.7006461
## Kookoos Nest-Malatapay        0.8860158
## Dauin Poblacion-Malatapay     0.1365775
## Basak-Andulay                 0.0000000
## Lutoban South-Andulay         0.8041557
## Lutoban Pier-Andulay          0.9560810
## Kookoos Nest-Andulay          0.9948748
## Dauin Poblacion-Andulay       0.0277824
## Lutoban South-Basak           0.0000275
## Lutoban Pier-Basak            0.0000000
## Kookoos Nest-Basak            0.0000000
## Dauin Poblacion-Basak         0.0277824
## Lutoban Pier-Lutoban South    0.1187431
## Kookoos Nest-Lutoban South    0.2564502
## Dauin Poblacion-Lutoban South 0.7371108
## Kookoos Nest-Lutoban Pier     0.9999945
## Dauin Poblacion-Lutoban Pier  0.0002937
## Dauin Poblacion-Kookoos Nest  0.0012493

  #Therefore:
  kruskal.test(df.sample_data$num_nursery_species ~ df.sample_data$location) #nonidentical populations

## 
##  Kruskal-Wallis rank sum test
## 
## data:  df.sample_data$num_nursery_species by df.sample_data$location
## Kruskal-Wallis chi-squared = 67.832, df = 8, p-value = 1.326e-11

  t <- dunn.test::dunn.test(df.sample_data$num_nursery_species, df.sample_data$location,method="bonferroni")

##   Kruskal-Wallis rank sum test
## 
## data: x and group
## Kruskal-Wallis chi-squared = 67.8317, df = 8, p-value = 0
## 
## 
##                            Comparison of x by group                            
##                                  (Bonferroni)                                  
## Col Mean-|
## Row Mean |   Antulang   Guinsuan   Malatapa    Andulay      Basak   Lutoban 
## ---------+------------------------------------------------------------------
## Guinsuan |  -1.094973
##          |     1.0000
##          |
## Malatapa |  -0.629582   0.465391
##          |     1.0000     1.0000
##          |
##  Andulay |  -0.095144   0.999829   0.534438
##          |     1.0000     1.0000     1.0000
##          |
##    Basak |  -5.182368  -4.087394  -4.552785  -5.087224
##          |     0.0000     0.0008     0.0001     0.0000
##          |
## Lutoban  |  -1.777293  -0.682319  -1.147710  -1.682149   3.405074
##          |     1.0000     1.0000     1.0000     1.0000     0.0119
##          |
## Lutoban  |   1.419007   2.513981   2.048590   1.514151   6.601376   3.196301
##          |     1.0000     0.2149     0.7290     1.0000     0.0000     0.0251
##          |
## Kookoos  |   0.990043   2.085017   1.619626   1.085187   6.172411   2.767336
##          |     1.0000     0.6672     1.0000     1.0000     0.0000     0.1017
##          |
## Dauin Po |  -3.014711  -1.919738  -2.385129  -2.919567   2.167656  -1.237418
##          |     0.0463     0.9880     0.3073     0.0631     0.5433     1.0000
## Col Mean-|
## Row Mean |    Andulay      Basak   Lutoban    Lutoban    Kookoos 
## ---------+-------------------------------------------------------
##    Basak |  -5.087224  -1.777293  -0.682319  -1.147710  -1.682149
##          |     0.0000     1.0000     1.0000     1.0000     1.0000
##          |
## Lutoban  |  -1.682149   3.405074   1.419007   2.513981   2.048590
##          |     1.0000     0.0119     1.0000     0.2149     0.7290
##          |
## Lutoban  |   1.514151   6.601376   3.196301   0.990043   2.085017
##          |     1.0000     0.0000     0.0251     1.0000     0.6672
##          |
## Kookoos  |   1.085187   6.172411   2.767336  -0.428964  -3.014711
##          |     1.0000     0.0000     0.1017     1.0000     0.0463
##          |
## Dauin Po |  -2.919567   2.167656  -1.237418  -4.433719  -4.004755
##          |     0.0631     0.5433     1.0000     0.0002     0.0011

  tab <- list()
  tab$z <- t$Z
  tab$padjusted <- t$P.adjusted
  tab <- data.frame(tab)
  rownames(tab) <- t$comparisons
  tab <- tab[order(tab$padjusted),]
  knitr::kable(tab)

	z	padjusted
Basak - Lutoban Pier	6.6013763	0.0000000
Basak - Kookoos Nest	6.1724119	0.0000000
Antulang - Basak	-5.1823685	0.0000039
Andulay - Basak	-5.0872243	0.0000065
Malatapay - Basak	-4.5527858	0.0000953
Lutoban Pier - Dauin Poblacion	-4.4337196	0.0001667
Guinsuan - Basak	-4.0873947	0.0007852
Kookoos Nest - Dauin Poblacion	-4.0047552	0.0011175
Basak - Lutoban South	3.4050749	0.0119063
Lutoban South - Lutoban Pier	3.1963014	0.0250563
Antulang - Dauin Poblacion	-3.0147119	0.0463002
Andulay - Dauin Poblacion	-2.9195677	0.0630931
Lutoban South - Kookoos Nest	2.7673369	0.1017294
Guinsuan - Lutoban Pier	2.5139815	0.2148780
Malatapay - Dauin Poblacion	-2.3851291	0.3073163
Basak - Dauin Poblacion	2.1676567	0.5433267
Guinsuan - Kookoos Nest	2.0850171	0.6672194
Malatapay - Lutoban Pier	2.0485905	0.7290391
Guinsuan - Dauin Poblacion	-1.9197381	0.9880379
Antulang - Guinsuan	-1.0949738	1.0000000
Antulang - Malatapay	-0.6295827	1.0000000
Guinsuan - Malatapay	0.4653910	1.0000000
Antulang - Andulay	-0.0951442	1.0000000
Guinsuan - Andulay	0.9998296	1.0000000
Malatapay - Andulay	0.5344386	1.0000000
Antulang - Lutoban South	-1.7772936	1.0000000
Guinsuan - Lutoban South	-0.6823198	1.0000000
Malatapay - Lutoban South	-1.1477109	1.0000000
Andulay - Lutoban South	-1.6821494	1.0000000
Antulang - Lutoban Pier	1.4190077	1.0000000
Andulay - Lutoban Pier	1.5141519	1.0000000
Antulang - Kookoos Nest	0.9900433	1.0000000
Malatapay - Kookoos Nest	1.6196261	1.0000000
Andulay - Kookoos Nest	1.0851875	1.0000000
Lutoban Pier - Kookoos Nest	-0.4289644	1.0000000
Lutoban South - Dauin Poblacion	-1.2374183	1.0000000

Logistic regression ; on presence

Independent variables: size_seagrass, distance_seagrass, mpa, depth, north

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * df.sample_data$size_seagrass * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}

## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC abudefduf_sexfasciatus_pres :  182.427755545775"

## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"
## [1] "cheilinus_undulatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "fistularia_commersonii_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "halichoeres_argus_pres"
## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"

## [1] "halichoeres_scapularis_pres"
## [1] "lethrinus_harak_pres"
## [1] "lutjanus_decussatus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  3207.84149824231"

## [1] "lutjanus_gibbus_pres"
## [1] "lutjanus_monostigma_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  756.873067782343"

## [1] "mulloidichthys_flavolineatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  1694.00805589939"

## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres :  448.158014854641"

## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "stethojulis_trilineata_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  1863.58333444741"

## [1] "plectorhinchus_flavomaculatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"
## [1] "lutjanus_ehrenbergii_pres"
## [1] "lutjanus_fulviflamma_pres"
## [1] "lutjanus_fulvus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  2919.49227112937"

## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"

## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## [1] "epinephelus_merra_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  3063.66688468584"

## [1] "siganus_spinus_pres"

knitr::kable(glm_tab, escape=TRUE)

	species	coefficient	pvalue
1	abudefduf_sexfasciatus_pres	df.sample_data$depth10m	0.0028027
2	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0024709
3	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0159850
4	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m	0.0000016
21	halichoeres_hortulanus_pres	df.sample_data$mpanon-mpa	0.0043959
31	halichoeres_hortulanus_pres	df.sample_data$northsouth	0.0462424
41	halichoeres_hortulanus_pres	df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa	0.0191965
5	halichoeres_hortulanus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0057321
6	halichoeres_hortulanus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0028824
7	halichoeres_hortulanus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0001476
8	halichoeres_hortulanus_pres	df.sample_data\(distance_seagrass:df.sample_data\)northsouth	0.0268975
9	halichoeres_hortulanus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000710
10	halichoeres_hortulanus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0001937
11	halichoeres_hortulanus_pres	df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m	0.0004015
12	halichoeres_hortulanus_pres	df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m	0.0077115
13	halichoeres_hortulanus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth	0.0000284
22	lutjanus_decussatus_pres	df.sample_data$distance_seagrass	0.0000000
32	lutjanus_decussatus_pres	df.sample_data$size_seagrass	0.0000000
42	lutjanus_decussatus_pres	df.sample_data$mpanon-mpa	0.0000000
51	lutjanus_decussatus_pres	df.sample_data$depth10m	0.0000000
61	lutjanus_decussatus_pres	df.sample_data$northsouth	0.0000000
71	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
81	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa	0.0000000
91	lutjanus_decussatus_pres	df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa	0.0000000
101	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
111	lutjanus_decussatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
121	lutjanus_decussatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
131	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)northsouth	0.0000000
14	lutjanus_decussatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
15	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
16	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m	0.0000000
17	lutjanus_decussatus_pres	df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m	0.0000000
18	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth	0.0000000
23	lutjanus_monostigma_pres	df.sample_data$distance_seagrass	0.0000000
33	lutjanus_monostigma_pres	df.sample_data$size_seagrass	0.0000000
43	lutjanus_monostigma_pres	df.sample_data$mpanon-mpa	0.0000000
52	lutjanus_monostigma_pres	df.sample_data$depth10m	0.0000000
62	lutjanus_monostigma_pres	df.sample_data$northsouth	0.0000000
72	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
82	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa	0.0000000
92	lutjanus_monostigma_pres	df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa	0.0000000
102	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
112	lutjanus_monostigma_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
122	lutjanus_monostigma_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
132	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)northsouth	0.0000000
141	lutjanus_monostigma_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
151	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
161	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m	0.0000000
171	lutjanus_monostigma_pres	df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m	0.0000000
181	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth	0.0000000
24	mulloidichthys_flavolineatus_pres	df.sample_data$distance_seagrass	0.0000000
34	mulloidichthys_flavolineatus_pres	df.sample_data$size_seagrass	0.0000000
44	mulloidichthys_flavolineatus_pres	df.sample_data$mpanon-mpa	0.0000000
53	mulloidichthys_flavolineatus_pres	df.sample_data$depth10m	0.0000000
63	mulloidichthys_flavolineatus_pres	df.sample_data$northsouth	0.0000000
73	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
83	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa	0.0000000
93	mulloidichthys_flavolineatus_pres	df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa	0.0000000
103	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
113	mulloidichthys_flavolineatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
123	mulloidichthys_flavolineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
133	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)northsouth	0.0000000
142	mulloidichthys_flavolineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
152	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
162	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m	0.0000000
172	mulloidichthys_flavolineatus_pres	df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m	0.0000000
182	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth	0.0000000
68	parupeneus_barberinus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0243194
25	stethojulis_trilineata_pres	df.sample_data$distance_seagrass	0.0000963
35	stethojulis_trilineata_pres	df.sample_data$size_seagrass	0.0000963
45	stethojulis_trilineata_pres	df.sample_data$mpanon-mpa	0.0000963
54	stethojulis_trilineata_pres	df.sample_data$depth10m	0.0000000
64	stethojulis_trilineata_pres	df.sample_data$northsouth	0.0000963
74	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000963
84	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa	0.0000963
94	stethojulis_trilineata_pres	df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa	0.0000963
104	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
114	stethojulis_trilineata_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
124	stethojulis_trilineata_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
134	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)northsouth	0.0000963
143	stethojulis_trilineata_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
153	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
163	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m	0.0000000
173	stethojulis_trilineata_pres	df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m	0.0000000
183	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$northsouth	0.0000963
19	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth	0.0000000
26	lutjanus_fulvus_pres	df.sample_data$distance_seagrass	0.0000000
36	lutjanus_fulvus_pres	df.sample_data$size_seagrass	0.0000000
46	lutjanus_fulvus_pres	df.sample_data$mpanon-mpa	0.0000000
55	lutjanus_fulvus_pres	df.sample_data$depth10m	0.0000000
65	lutjanus_fulvus_pres	df.sample_data$northsouth	0.0000000
75	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
85	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa	0.0000000
95	lutjanus_fulvus_pres	df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa	0.0000000
105	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
115	lutjanus_fulvus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
125	lutjanus_fulvus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
135	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)northsouth	0.0000000
144	lutjanus_fulvus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
154	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
164	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m	0.0000000
174	lutjanus_fulvus_pres	df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m	0.0000000
184	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth	0.0000000
27	scolopsis_bilineata_pres	df.sample_data$mpanon-mpa	0.0002629
37	scolopsis_bilineata_pres	df.sample_data$northsouth	0.0002037
47	scolopsis_bilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa	0.0154554
56	scolopsis_bilineata_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0079470
66	scolopsis_bilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)northsouth	0.0404062
76	scolopsis_bilineata_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0024879
86	scolopsis_bilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth	0.0129976
28	epinephelus_merra_pres	df.sample_data$distance_seagrass	0.0000000
38	epinephelus_merra_pres	df.sample_data$size_seagrass	0.0000000
48	epinephelus_merra_pres	df.sample_data$mpanon-mpa	0.0000000
57	epinephelus_merra_pres	df.sample_data$depth10m	0.0000000
67	epinephelus_merra_pres	df.sample_data$northsouth	0.0000000
77	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
87	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa	0.0000000
96	epinephelus_merra_pres	df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa	0.0000000
106	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
116	epinephelus_merra_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
126	epinephelus_merra_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
136	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)northsouth	0.0000000
145	epinephelus_merra_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
155	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
165	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m	0.0000000
175	epinephelus_merra_pres	df.sample_data\(size_seagrass:df.sample_data\)mpanon-mpa:df.sample_data$depth10m	0.0000000
185	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m:df.sample_data$northsouth	0.0000000

Independent variables: size_seagrass, distance_seagrass, size_mangroves, distance_mangroves, mpa, depth, north

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * df.sample_data$size_seagrass * df.sample_data$distance_mangroves * df.sample_data$size_mangroves * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}

## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC abudefduf_sexfasciatus_pres :  1766.09536267762"

## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "cheilinus_undulatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilodipterus_quinquelineatus_pres :  9046.91334727929"

## [1] "fistularia_commersonii_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  5370.46070158934"

## [1] "halichoeres_argus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_argus_pres :  2342.7938169035"

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"

## [1] "halichoeres_scapularis_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  3279.92880502054"

## [1] "lethrinus_harak_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_harak_pres :  252.261920334703"

## [1] "lutjanus_decussatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  2631.14304401644"

## [1] "lutjanus_gibbus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  828.960374560578"

## [1] "lutjanus_monostigma_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  756.873067782343"

## [1] "mulloidichthys_flavolineatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  1694.00805589939"

## [1] "parupeneus_barberinus_pres"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_virgatus_pres :  1271.58505862375"

## [1] "sphyraena_barracuda_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "stethojulis_trilineata_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  9623.61180150516"

## [1] "plectorhinchus_flavomaculatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_microdon_pres :  252.261920334703"

## [1] "lethrinus_obsoletus_pres"
## [1] "lutjanus_ehrenbergii_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_ehrenbergii_pres :  1852.71313695671"

## [1] "lutjanus_fulviflamma_pres"
## [1] "lutjanus_fulvus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  7388.9052913799"

## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"

## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## [1] "epinephelus_merra_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  22383.0651012526"

## [1] "siganus_spinus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

knitr::kable(glm_tab, escape=TRUE)

	species	coefficient	pvalue
2	abudefduf_sexfasciatus_pres	df.sample_data$distance_seagrass	0.0000000
3	abudefduf_sexfasciatus_pres	df.sample_data$size_seagrass	0.0000000
4	abudefduf_sexfasciatus_pres	df.sample_data$distance_mangroves	0.0000000
5	abudefduf_sexfasciatus_pres	df.sample_data$size_mangroves	0.0000000
6	abudefduf_sexfasciatus_pres	df.sample_data$mpanon-mpa	0.0000000
7	abudefduf_sexfasciatus_pres	df.sample_data$depth10m	0.0000000
8	abudefduf_sexfasciatus_pres	df.sample_data$northsouth	0.0000000
9	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
10	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
11	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
12	abudefduf_sexfasciatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
13	abudefduf_sexfasciatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
14	abudefduf_sexfasciatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
15	abudefduf_sexfasciatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
16	abudefduf_sexfasciatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
17	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
18	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
21	cheilodipterus_quinquelineatus_pres	df.sample_data$distance_seagrass	0.0000000
31	cheilodipterus_quinquelineatus_pres	df.sample_data$size_seagrass	0.0000000
41	cheilodipterus_quinquelineatus_pres	df.sample_data$distance_mangroves	0.0000000
51	cheilodipterus_quinquelineatus_pres	df.sample_data$size_mangroves	0.0000000
61	cheilodipterus_quinquelineatus_pres	df.sample_data$mpanon-mpa	0.0000000
71	cheilodipterus_quinquelineatus_pres	df.sample_data$depth10m	0.0000000
81	cheilodipterus_quinquelineatus_pres	df.sample_data$northsouth	0.0000000
91	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
101	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
111	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
121	cheilodipterus_quinquelineatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
131	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
141	cheilodipterus_quinquelineatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
151	cheilodipterus_quinquelineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
161	cheilodipterus_quinquelineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
171	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
181	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
22	fistularia_commersonii_pres	df.sample_data$distance_seagrass	0.0000000
32	fistularia_commersonii_pres	df.sample_data$size_seagrass	0.0000000
42	fistularia_commersonii_pres	df.sample_data$distance_mangroves	0.0000000
52	fistularia_commersonii_pres	df.sample_data$size_mangroves	0.0000000
62	fistularia_commersonii_pres	df.sample_data$mpanon-mpa	0.0000000
72	fistularia_commersonii_pres	df.sample_data$depth10m	0.0000000
82	fistularia_commersonii_pres	df.sample_data$northsouth	0.0000000
92	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
102	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
112	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
122	fistularia_commersonii_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
132	fistularia_commersonii_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
142	fistularia_commersonii_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
152	fistularia_commersonii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
162	fistularia_commersonii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
172	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
182	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
23	halichoeres_argus_pres	df.sample_data$distance_seagrass	0.0000000
33	halichoeres_argus_pres	df.sample_data$size_seagrass	0.0000000
43	halichoeres_argus_pres	df.sample_data$distance_mangroves	0.0000000
53	halichoeres_argus_pres	df.sample_data$size_mangroves	0.0000000
63	halichoeres_argus_pres	df.sample_data$mpanon-mpa	0.0000000
73	halichoeres_argus_pres	df.sample_data$depth10m	0.0000000
83	halichoeres_argus_pres	df.sample_data$northsouth	0.0000000
93	halichoeres_argus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
103	halichoeres_argus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
113	halichoeres_argus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
123	halichoeres_argus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
133	halichoeres_argus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
143	halichoeres_argus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
153	halichoeres_argus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
163	halichoeres_argus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
173	halichoeres_argus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
183	halichoeres_argus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
69	halichoeres_hortulanus_pres	df.sample_data$depth10m	0.0339328
70	halichoeres_hortulanus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0143812
711	halichoeres_hortulanus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0243675
721	halichoeres_hortulanus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0297664
731	halichoeres_hortulanus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0443909
24	halichoeres_scapularis_pres	df.sample_data$distance_seagrass	0.0000000
34	halichoeres_scapularis_pres	df.sample_data$size_seagrass	0.0000000
44	halichoeres_scapularis_pres	df.sample_data$distance_mangroves	0.0000000
54	halichoeres_scapularis_pres	df.sample_data$size_mangroves	0.0000000
64	halichoeres_scapularis_pres	df.sample_data$mpanon-mpa	0.0000000
74	halichoeres_scapularis_pres	df.sample_data$depth10m	0.0000000
84	halichoeres_scapularis_pres	df.sample_data$northsouth	0.0000000
94	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
104	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
114	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
124	halichoeres_scapularis_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
134	halichoeres_scapularis_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
144	halichoeres_scapularis_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
154	halichoeres_scapularis_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
164	halichoeres_scapularis_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
174	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
184	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
25	lethrinus_harak_pres	df.sample_data$distance_seagrass	0.0000000
35	lethrinus_harak_pres	df.sample_data$size_seagrass	0.0000000
45	lethrinus_harak_pres	df.sample_data$distance_mangroves	0.0000000
55	lethrinus_harak_pres	df.sample_data$size_mangroves	0.0000000
65	lethrinus_harak_pres	df.sample_data$mpanon-mpa	0.0000000
75	lethrinus_harak_pres	df.sample_data$depth10m	0.0000000
85	lethrinus_harak_pres	df.sample_data$northsouth	0.0000000
95	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
105	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
115	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
125	lethrinus_harak_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
135	lethrinus_harak_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
145	lethrinus_harak_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
155	lethrinus_harak_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
165	lethrinus_harak_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
175	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
185	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
26	lutjanus_decussatus_pres	df.sample_data$distance_seagrass	0.0000000
36	lutjanus_decussatus_pres	df.sample_data$size_seagrass	0.0000000
46	lutjanus_decussatus_pres	df.sample_data$distance_mangroves	0.0000000
56	lutjanus_decussatus_pres	df.sample_data$size_mangroves	0.0000000
66	lutjanus_decussatus_pres	df.sample_data$mpanon-mpa	0.0000000
76	lutjanus_decussatus_pres	df.sample_data$depth10m	0.0000000
86	lutjanus_decussatus_pres	df.sample_data$northsouth	0.0000000
96	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
106	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
116	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
126	lutjanus_decussatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
136	lutjanus_decussatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
146	lutjanus_decussatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
156	lutjanus_decussatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
166	lutjanus_decussatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
176	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
186	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
27	lutjanus_gibbus_pres	df.sample_data$distance_seagrass	0.0000000
37	lutjanus_gibbus_pres	df.sample_data$size_seagrass	0.0000000
47	lutjanus_gibbus_pres	df.sample_data$distance_mangroves	0.0000000
57	lutjanus_gibbus_pres	df.sample_data$size_mangroves	0.0000000
67	lutjanus_gibbus_pres	df.sample_data$mpanon-mpa	0.0000000
77	lutjanus_gibbus_pres	df.sample_data$depth10m	0.0000000
87	lutjanus_gibbus_pres	df.sample_data$northsouth	0.0000000
97	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
107	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
117	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
127	lutjanus_gibbus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
137	lutjanus_gibbus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
147	lutjanus_gibbus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
157	lutjanus_gibbus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
167	lutjanus_gibbus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
177	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
187	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
28	lutjanus_monostigma_pres	df.sample_data$distance_seagrass	0.0000000
38	lutjanus_monostigma_pres	df.sample_data$size_seagrass	0.0000000
48	lutjanus_monostigma_pres	df.sample_data$distance_mangroves	0.0000000
58	lutjanus_monostigma_pres	df.sample_data$size_mangroves	0.0000000
68	lutjanus_monostigma_pres	df.sample_data$mpanon-mpa	0.0000000
78	lutjanus_monostigma_pres	df.sample_data$depth10m	0.0000000
88	lutjanus_monostigma_pres	df.sample_data$northsouth	0.0000000
98	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
108	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
118	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
128	lutjanus_monostigma_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
138	lutjanus_monostigma_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
148	lutjanus_monostigma_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
158	lutjanus_monostigma_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
168	lutjanus_monostigma_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
178	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
188	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
29	mulloidichthys_flavolineatus_pres	df.sample_data$distance_seagrass	0.0000000
39	mulloidichthys_flavolineatus_pres	df.sample_data$size_seagrass	0.0000000
49	mulloidichthys_flavolineatus_pres	df.sample_data$distance_mangroves	0.0000000
59	mulloidichthys_flavolineatus_pres	df.sample_data$size_mangroves	0.0000000
610	mulloidichthys_flavolineatus_pres	df.sample_data$mpanon-mpa	0.0000000
79	mulloidichthys_flavolineatus_pres	df.sample_data$depth10m	0.0000000
89	mulloidichthys_flavolineatus_pres	df.sample_data$northsouth	0.0000000
99	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
109	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
119	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
129	mulloidichthys_flavolineatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
139	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
149	mulloidichthys_flavolineatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
159	mulloidichthys_flavolineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
169	mulloidichthys_flavolineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
179	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
189	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
1761	siganus_virgatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0010965
210	stethojulis_trilineata_pres	df.sample_data$distance_seagrass	0.0000000
310	stethojulis_trilineata_pres	df.sample_data$size_seagrass	0.0000000
410	stethojulis_trilineata_pres	df.sample_data$distance_mangroves	0.0000000
510	stethojulis_trilineata_pres	df.sample_data$size_mangroves	0.0000000
611	stethojulis_trilineata_pres	df.sample_data$mpanon-mpa	0.0000000
710	stethojulis_trilineata_pres	df.sample_data$depth10m	0.0000000
810	stethojulis_trilineata_pres	df.sample_data$northsouth	0.0000000
910	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1010	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1110	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1210	stethojulis_trilineata_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1310	stethojulis_trilineata_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1410	stethojulis_trilineata_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1510	stethojulis_trilineata_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1610	stethojulis_trilineata_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1710	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1810	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
211	lethrinus_microdon_pres	df.sample_data$distance_seagrass	0.0000000
311	lethrinus_microdon_pres	df.sample_data$size_seagrass	0.0000000
411	lethrinus_microdon_pres	df.sample_data$distance_mangroves	0.0000000
511	lethrinus_microdon_pres	df.sample_data$size_mangroves	0.0000000
612	lethrinus_microdon_pres	df.sample_data$mpanon-mpa	0.0000000
712	lethrinus_microdon_pres	df.sample_data$depth10m	0.0000000
811	lethrinus_microdon_pres	df.sample_data$northsouth	0.0000000
911	lethrinus_microdon_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1011	lethrinus_microdon_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1111	lethrinus_microdon_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1211	lethrinus_microdon_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1311	lethrinus_microdon_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1411	lethrinus_microdon_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1511	lethrinus_microdon_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1611	lethrinus_microdon_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1711	lethrinus_microdon_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1811	lethrinus_microdon_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
212	lutjanus_ehrenbergii_pres	df.sample_data$distance_seagrass	0.0000000
312	lutjanus_ehrenbergii_pres	df.sample_data$size_seagrass	0.0000000
412	lutjanus_ehrenbergii_pres	df.sample_data$distance_mangroves	0.0000000
512	lutjanus_ehrenbergii_pres	df.sample_data$size_mangroves	0.0000000
613	lutjanus_ehrenbergii_pres	df.sample_data$mpanon-mpa	0.0000000
713	lutjanus_ehrenbergii_pres	df.sample_data$depth10m	0.0000000
812	lutjanus_ehrenbergii_pres	df.sample_data$northsouth	0.0000000
912	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1012	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1112	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:df.sample_data\)mpanon-mpa	0.0000000
1212	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1312	lutjanus_ehrenbergii_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1412	lutjanus_ehrenbergii_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1512	lutjanus_ehrenbergii_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1612	lutjanus_ehrenbergii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1712	lutjanus_ehrenbergii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1812	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
19	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
213	lutjanus_fulvus_pres	df.sample_data$distance_seagrass	0.0000000
313	lutjanus_fulvus_pres	df.sample_data$size_seagrass	0.0000000
413	lutjanus_fulvus_pres	df.sample_data$distance_mangroves	0.0000000
513	lutjanus_fulvus_pres	df.sample_data$size_mangroves	0.0000000
614	lutjanus_fulvus_pres	df.sample_data$mpanon-mpa	0.0000000
714	lutjanus_fulvus_pres	df.sample_data$depth10m	0.0000000
813	lutjanus_fulvus_pres	df.sample_data$northsouth	0.0000000
913	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1013	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1113	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1213	lutjanus_fulvus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1313	lutjanus_fulvus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1413	lutjanus_fulvus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1513	lutjanus_fulvus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1613	lutjanus_fulvus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1713	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1813	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
246	scolopsis_bilineata_pres	df.sample_data$size_seagrass	0.0059232
214	epinephelus_merra_pres	df.sample_data$distance_seagrass	0.0000000
314	epinephelus_merra_pres	df.sample_data$size_seagrass	0.0000000
414	epinephelus_merra_pres	df.sample_data$distance_mangroves	0.0000000
514	epinephelus_merra_pres	df.sample_data$size_mangroves	0.0000000
615	epinephelus_merra_pres	df.sample_data$mpanon-mpa	0.0000000
715	epinephelus_merra_pres	df.sample_data$depth10m	0.0000000
814	epinephelus_merra_pres	df.sample_data$northsouth	0.0000000
914	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1014	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1114	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1214	epinephelus_merra_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1314	epinephelus_merra_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1414	epinephelus_merra_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1514	epinephelus_merra_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1614	epinephelus_merra_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1714	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1814	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000

log(size_seagrass)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * (log(df.sample_data$size_seagrass)) * df.sample_data$distance_mangroves * df.sample_data$size_mangroves * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}

## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC abudefduf_sexfasciatus_pres :  1766.09536267762"

## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  3928.71456602465"

## [1] "cheilinus_undulatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilodipterus_quinquelineatus_pres :  7172.6433710452"

## [1] "fistularia_commersonii_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  6235.50838292815"

## [1] "halichoeres_argus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_argus_pres :  17481.1282403327"

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"

## [1] "halichoeres_scapularis_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  9767.78641506163"

## [1] "lethrinus_harak_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_harak_pres :  2991.57957790761"

## [1] "lutjanus_decussatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  2631.14304401644"

## [1] "lutjanus_gibbus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  2270.70651012526"

## [1] "lutjanus_monostigma_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  15462.6836505421"

## [1] "mulloidichthys_flavolineatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  10632.8340964004"

## [1] "parupeneus_barberinus_pres"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_virgatus_pres :  6451.77030326285"

## [1] "sphyraena_barracuda_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "stethojulis_trilineata_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  1694.00805589939"

## [1] "plectorhinchus_flavomaculatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_obsoletus_pres :  468.523840669406"

## [1] "lutjanus_ehrenbergii_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_ehrenbergii_pres :  396.436533891172"

## [1] "lutjanus_fulviflamma_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulviflamma_pres :  11137.4452438481"

## [1] "lutjanus_fulvus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  3207.84149824231"

## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"

## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC scarus_psittacus_pres :  2056.44458979112"

## [1] "epinephelus_merra_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  5514.63531514581"

## [1] "siganus_spinus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_spinus_pres :  4721.67494058523"

knitr::kable(glm_tab, escape=TRUE)

	species	coefficient	pvalue
2	abudefduf_sexfasciatus_pres	df.sample_data$distance_seagrass	0.0000000
3	abudefduf_sexfasciatus_pres	log(df.sample_data$size_seagrass)	0.0000000
4	abudefduf_sexfasciatus_pres	df.sample_data$distance_mangroves	0.0000000
5	abudefduf_sexfasciatus_pres	df.sample_data$size_mangroves	0.0000000
6	abudefduf_sexfasciatus_pres	df.sample_data$mpanon-mpa	0.0000000
7	abudefduf_sexfasciatus_pres	df.sample_data$depth10m	0.0000000
8	abudefduf_sexfasciatus_pres	df.sample_data$northsouth	0.0000000
9	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
10	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
11	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
12	abudefduf_sexfasciatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
13	abudefduf_sexfasciatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
14	abudefduf_sexfasciatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
15	abudefduf_sexfasciatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
16	abudefduf_sexfasciatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
17	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
18	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
21	cheilinus_chlorourus_pres	df.sample_data$distance_seagrass	0.0000000
31	cheilinus_chlorourus_pres	log(df.sample_data$size_seagrass)	0.0000000
41	cheilinus_chlorourus_pres	df.sample_data$distance_mangroves	0.0000000
51	cheilinus_chlorourus_pres	df.sample_data$size_mangroves	0.0000000
61	cheilinus_chlorourus_pres	df.sample_data$mpanon-mpa	0.0000000
71	cheilinus_chlorourus_pres	df.sample_data$depth10m	0.0000000
81	cheilinus_chlorourus_pres	df.sample_data$northsouth	0.0000000
91	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
101	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
111	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
121	cheilinus_chlorourus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
131	cheilinus_chlorourus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
141	cheilinus_chlorourus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
151	cheilinus_chlorourus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
161	cheilinus_chlorourus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
171	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
181	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
22	cheilodipterus_quinquelineatus_pres	df.sample_data$distance_seagrass	0.0000000
32	cheilodipterus_quinquelineatus_pres	log(df.sample_data$size_seagrass)	0.0000000
42	cheilodipterus_quinquelineatus_pres	df.sample_data$distance_mangroves	0.0000000
52	cheilodipterus_quinquelineatus_pres	df.sample_data$size_mangroves	0.0000000
62	cheilodipterus_quinquelineatus_pres	df.sample_data$mpanon-mpa	0.0000000
72	cheilodipterus_quinquelineatus_pres	df.sample_data$depth10m	0.0000000
82	cheilodipterus_quinquelineatus_pres	df.sample_data$northsouth	0.0000000
92	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
102	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
112	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
122	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
132	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
142	cheilodipterus_quinquelineatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
152	cheilodipterus_quinquelineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
162	cheilodipterus_quinquelineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
172	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
182	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
23	fistularia_commersonii_pres	df.sample_data$distance_seagrass	0.0000000
33	fistularia_commersonii_pres	log(df.sample_data$size_seagrass)	0.0000000
43	fistularia_commersonii_pres	df.sample_data$distance_mangroves	0.0000000
53	fistularia_commersonii_pres	df.sample_data$size_mangroves	0.0000000
63	fistularia_commersonii_pres	df.sample_data$mpanon-mpa	0.0000000
73	fistularia_commersonii_pres	df.sample_data$depth10m	0.0000000
83	fistularia_commersonii_pres	df.sample_data$northsouth	0.0000000
93	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
103	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
113	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
123	fistularia_commersonii_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
133	fistularia_commersonii_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
143	fistularia_commersonii_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
153	fistularia_commersonii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
163	fistularia_commersonii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
173	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
183	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
24	halichoeres_argus_pres	df.sample_data$distance_seagrass	0.0000000
34	halichoeres_argus_pres	log(df.sample_data$size_seagrass)	0.0000000
44	halichoeres_argus_pres	df.sample_data$distance_mangroves	0.0000000
54	halichoeres_argus_pres	df.sample_data$size_mangroves	0.0000000
64	halichoeres_argus_pres	df.sample_data$mpanon-mpa	0.0000000
74	halichoeres_argus_pres	df.sample_data$depth10m	0.0000000
84	halichoeres_argus_pres	df.sample_data$northsouth	0.0000000
94	halichoeres_argus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
104	halichoeres_argus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
114	halichoeres_argus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
124	halichoeres_argus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
134	halichoeres_argus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
144	halichoeres_argus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
154	halichoeres_argus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
164	halichoeres_argus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
174	halichoeres_argus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
184	halichoeres_argus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
86	halichoeres_hortulanus_pres	log(df.sample_data$size_seagrass)	0.0396168
87	halichoeres_hortulanus_pres	df.sample_data$depth10m	0.0298737
88	halichoeres_hortulanus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0240686
89	halichoeres_hortulanus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0275280
90	halichoeres_hortulanus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0315016
911	halichoeres_hortulanus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0346385
25	halichoeres_scapularis_pres	df.sample_data$distance_seagrass	0.0000000
35	halichoeres_scapularis_pres	log(df.sample_data$size_seagrass)	0.0000000
45	halichoeres_scapularis_pres	df.sample_data$distance_mangroves	0.0000000
55	halichoeres_scapularis_pres	df.sample_data$size_mangroves	0.0000000
65	halichoeres_scapularis_pres	df.sample_data$mpanon-mpa	0.0000000
75	halichoeres_scapularis_pres	df.sample_data$depth10m	0.0000000
85	halichoeres_scapularis_pres	df.sample_data$northsouth	0.0000000
95	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
105	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
115	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
125	halichoeres_scapularis_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
135	halichoeres_scapularis_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
145	halichoeres_scapularis_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
155	halichoeres_scapularis_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
165	halichoeres_scapularis_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
175	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
185	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
26	lethrinus_harak_pres	df.sample_data$distance_seagrass	0.0000000
36	lethrinus_harak_pres	log(df.sample_data$size_seagrass)	0.0000000
46	lethrinus_harak_pres	df.sample_data$distance_mangroves	0.0000000
56	lethrinus_harak_pres	df.sample_data$size_mangroves	0.0000000
66	lethrinus_harak_pres	df.sample_data$mpanon-mpa	0.0000000
76	lethrinus_harak_pres	df.sample_data$depth10m	0.0000000
810	lethrinus_harak_pres	df.sample_data$northsouth	0.0000000
96	lethrinus_harak_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
106	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
116	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
126	lethrinus_harak_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
136	lethrinus_harak_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
146	lethrinus_harak_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
156	lethrinus_harak_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
166	lethrinus_harak_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
176	lethrinus_harak_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
186	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
27	lutjanus_decussatus_pres	df.sample_data$distance_seagrass	0.0000000
37	lutjanus_decussatus_pres	log(df.sample_data$size_seagrass)	0.0000000
47	lutjanus_decussatus_pres	df.sample_data$distance_mangroves	0.0000000
57	lutjanus_decussatus_pres	df.sample_data$size_mangroves	0.0000000
67	lutjanus_decussatus_pres	df.sample_data$mpanon-mpa	0.0000000
77	lutjanus_decussatus_pres	df.sample_data$depth10m	0.0000000
811	lutjanus_decussatus_pres	df.sample_data$northsouth	0.0000000
97	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
107	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
117	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
127	lutjanus_decussatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
137	lutjanus_decussatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
147	lutjanus_decussatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
157	lutjanus_decussatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
167	lutjanus_decussatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
177	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
187	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
28	lutjanus_gibbus_pres	df.sample_data$distance_seagrass	0.0000000
38	lutjanus_gibbus_pres	log(df.sample_data$size_seagrass)	0.0000000
48	lutjanus_gibbus_pres	df.sample_data$distance_mangroves	0.0000000
58	lutjanus_gibbus_pres	df.sample_data$size_mangroves	0.0000000
68	lutjanus_gibbus_pres	df.sample_data$mpanon-mpa	0.0000000
78	lutjanus_gibbus_pres	df.sample_data$depth10m	0.0000000
812	lutjanus_gibbus_pres	df.sample_data$northsouth	0.0000000
98	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
108	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
118	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
128	lutjanus_gibbus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
138	lutjanus_gibbus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
148	lutjanus_gibbus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
158	lutjanus_gibbus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
168	lutjanus_gibbus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
178	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
188	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
29	lutjanus_monostigma_pres	df.sample_data$distance_seagrass	0.0000000
39	lutjanus_monostigma_pres	log(df.sample_data$size_seagrass)	0.0000000
49	lutjanus_monostigma_pres	df.sample_data$distance_mangroves	0.0000000
59	lutjanus_monostigma_pres	df.sample_data$size_mangroves	0.0000000
69	lutjanus_monostigma_pres	df.sample_data$mpanon-mpa	0.0000000
79	lutjanus_monostigma_pres	df.sample_data$depth10m	0.0000000
813	lutjanus_monostigma_pres	df.sample_data$northsouth	0.0000000
99	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
109	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
119	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
129	lutjanus_monostigma_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
139	lutjanus_monostigma_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
149	lutjanus_monostigma_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
159	lutjanus_monostigma_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
169	lutjanus_monostigma_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
179	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
189	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
210	mulloidichthys_flavolineatus_pres	df.sample_data$distance_seagrass	0.0000000
310	mulloidichthys_flavolineatus_pres	log(df.sample_data$size_seagrass)	0.0000000
410	mulloidichthys_flavolineatus_pres	df.sample_data$distance_mangroves	0.0000000
510	mulloidichthys_flavolineatus_pres	df.sample_data$size_mangroves	0.0000000
610	mulloidichthys_flavolineatus_pres	df.sample_data$mpanon-mpa	0.0000000
710	mulloidichthys_flavolineatus_pres	df.sample_data$depth10m	0.0000000
814	mulloidichthys_flavolineatus_pres	df.sample_data$northsouth	0.0000000
910	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1010	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1110	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1210	mulloidichthys_flavolineatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1310	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1410	mulloidichthys_flavolineatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1510	mulloidichthys_flavolineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1610	mulloidichthys_flavolineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1710	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1810	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
211	siganus_virgatus_pres	df.sample_data$distance_seagrass	0.0000000
311	siganus_virgatus_pres	log(df.sample_data$size_seagrass)	0.0000000
411	siganus_virgatus_pres	df.sample_data$distance_mangroves	0.0000000
511	siganus_virgatus_pres	df.sample_data$size_mangroves	0.0000000
611	siganus_virgatus_pres	df.sample_data$mpanon-mpa	0.0000000
711	siganus_virgatus_pres	df.sample_data$depth10m	0.0000000
815	siganus_virgatus_pres	df.sample_data$northsouth	0.0000000
912	siganus_virgatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1011	siganus_virgatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1111	siganus_virgatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1211	siganus_virgatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1311	siganus_virgatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1411	siganus_virgatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1511	siganus_virgatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1611	siganus_virgatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1711	siganus_virgatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1811	siganus_virgatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
212	stethojulis_trilineata_pres	df.sample_data$distance_seagrass	0.0000000
312	stethojulis_trilineata_pres	log(df.sample_data$size_seagrass)	0.0000000
412	stethojulis_trilineata_pres	df.sample_data$distance_mangroves	0.0000000
512	stethojulis_trilineata_pres	df.sample_data$size_mangroves	0.0000000
612	stethojulis_trilineata_pres	df.sample_data$mpanon-mpa	0.0000000
712	stethojulis_trilineata_pres	df.sample_data$depth10m	0.0000000
816	stethojulis_trilineata_pres	df.sample_data$northsouth	0.0000000
913	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1012	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1112	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1212	stethojulis_trilineata_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1312	stethojulis_trilineata_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1412	stethojulis_trilineata_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1512	stethojulis_trilineata_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1612	stethojulis_trilineata_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1712	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1812	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
213	lethrinus_obsoletus_pres	df.sample_data$distance_seagrass	0.0000000
313	lethrinus_obsoletus_pres	log(df.sample_data$size_seagrass)	0.0000000
413	lethrinus_obsoletus_pres	df.sample_data$distance_mangroves	0.0000000
513	lethrinus_obsoletus_pres	df.sample_data$size_mangroves	0.0000000
613	lethrinus_obsoletus_pres	df.sample_data$mpanon-mpa	0.0000000
713	lethrinus_obsoletus_pres	df.sample_data$depth10m	0.0000000
817	lethrinus_obsoletus_pres	df.sample_data$northsouth	0.0000000
914	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1013	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1113	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1213	lethrinus_obsoletus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1313	lethrinus_obsoletus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1413	lethrinus_obsoletus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1513	lethrinus_obsoletus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1613	lethrinus_obsoletus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1713	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1813	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
214	lutjanus_ehrenbergii_pres	df.sample_data$distance_seagrass	0.0000000
314	lutjanus_ehrenbergii_pres	log(df.sample_data$size_seagrass)	0.0000000
414	lutjanus_ehrenbergii_pres	df.sample_data$distance_mangroves	0.0000000
514	lutjanus_ehrenbergii_pres	df.sample_data$size_mangroves	0.0000000
614	lutjanus_ehrenbergii_pres	df.sample_data$mpanon-mpa	0.0000000
714	lutjanus_ehrenbergii_pres	df.sample_data$depth10m	0.0000000
818	lutjanus_ehrenbergii_pres	df.sample_data$northsouth	0.0000000
915	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1014	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1114	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1214	lutjanus_ehrenbergii_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1314	lutjanus_ehrenbergii_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1414	lutjanus_ehrenbergii_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1514	lutjanus_ehrenbergii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1614	lutjanus_ehrenbergii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1714	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1814	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
215	lutjanus_fulviflamma_pres	df.sample_data$distance_seagrass	0.0000000
315	lutjanus_fulviflamma_pres	log(df.sample_data$size_seagrass)	0.0000000
415	lutjanus_fulviflamma_pres	df.sample_data$distance_mangroves	0.0000000
515	lutjanus_fulviflamma_pres	df.sample_data$size_mangroves	0.0000000
615	lutjanus_fulviflamma_pres	df.sample_data$mpanon-mpa	0.0000000
715	lutjanus_fulviflamma_pres	df.sample_data$depth10m	0.0000000
819	lutjanus_fulviflamma_pres	df.sample_data$northsouth	0.0000000
916	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1015	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1115	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1215	lutjanus_fulviflamma_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1315	lutjanus_fulviflamma_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1415	lutjanus_fulviflamma_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1515	lutjanus_fulviflamma_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1615	lutjanus_fulviflamma_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1715	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1815	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
216	lutjanus_fulvus_pres	df.sample_data$distance_seagrass	0.0000000
316	lutjanus_fulvus_pres	log(df.sample_data$size_seagrass)	0.0000000
416	lutjanus_fulvus_pres	df.sample_data$distance_mangroves	0.0000000
516	lutjanus_fulvus_pres	df.sample_data$size_mangroves	0.0000000
616	lutjanus_fulvus_pres	df.sample_data$mpanon-mpa	0.0000000
716	lutjanus_fulvus_pres	df.sample_data$depth10m	0.0000000
820	lutjanus_fulvus_pres	df.sample_data$northsouth	0.0000000
917	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1016	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1116	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1216	lutjanus_fulvus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1316	lutjanus_fulvus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1416	lutjanus_fulvus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1516	lutjanus_fulvus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1616	lutjanus_fulvus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1716	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1816	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
296	scolopsis_bilineata_pres	log(df.sample_data$size_seagrass)	0.0036973
297	scarus_psittacus_pres	df.sample_data$depth10m	0.0000000
298	scarus_psittacus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
299	scarus_psittacus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
300	scarus_psittacus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
301	scarus_psittacus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
302	scarus_psittacus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
303	scarus_psittacus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
304	scarus_psittacus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
305	scarus_psittacus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
217	epinephelus_merra_pres	df.sample_data$distance_seagrass	0.0000000
317	epinephelus_merra_pres	log(df.sample_data$size_seagrass)	0.0000000
417	epinephelus_merra_pres	df.sample_data$distance_mangroves	0.0000000
517	epinephelus_merra_pres	df.sample_data$size_mangroves	0.0000000
617	epinephelus_merra_pres	df.sample_data$mpanon-mpa	0.0000000
717	epinephelus_merra_pres	df.sample_data$depth10m	0.0000000
821	epinephelus_merra_pres	df.sample_data$northsouth	0.0000000
918	epinephelus_merra_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1017	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1117	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1217	epinephelus_merra_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1317	epinephelus_merra_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1417	epinephelus_merra_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1517	epinephelus_merra_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1617	epinephelus_merra_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1717	epinephelus_merra_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1817	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
218	siganus_spinus_pres	df.sample_data$distance_seagrass	0.0000000
318	siganus_spinus_pres	log(df.sample_data$size_seagrass)	0.0000000
418	siganus_spinus_pres	df.sample_data$distance_mangroves	0.0000000
518	siganus_spinus_pres	df.sample_data$size_mangroves	0.0000000
618	siganus_spinus_pres	df.sample_data$mpanon-mpa	0.0000000
718	siganus_spinus_pres	df.sample_data$depth10m	0.0000000
822	siganus_spinus_pres	df.sample_data$northsouth	0.0000000
919	siganus_spinus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1018	siganus_spinus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1118	siganus_spinus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1218	siganus_spinus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1318	siganus_spinus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1418	siganus_spinus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1518	siganus_spinus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1618	siganus_spinus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1718	siganus_spinus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1818	siganus_spinus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000

log(distance_seagrass)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ (log(df.sample_data$distance_seagrass)) * df.sample_data$size_seagrass * df.sample_data$distance_mangroves * df.sample_data$size_mangroves * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}

## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC abudefduf_sexfasciatus_pres :  1766.09536267762"

## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  10013.7742226187"

## [1] "cheilinus_undulatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilodipterus_quinquelineatus_pres :  11037.1403935915"

## [1] "fistularia_commersonii_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  6812.20683715403"

## [1] "halichoeres_argus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"

## [1] "halichoeres_scapularis_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  4000.80187280289"

## [1] "lethrinus_harak_pres"
## [1] "lutjanus_decussatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  5514.63531514581"

## [1] "lutjanus_gibbus_pres"
## [1] "lutjanus_monostigma_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  17192.7790132198"

## [1] "mulloidichthys_flavolineatus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  2414.88112368173"

## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres :  448.158014854641"

## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "stethojulis_trilineata_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  1694.00805589939"

## [1] "plectorhinchus_flavomaculatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"
## [1] "lutjanus_ehrenbergii_pres"
## [1] "lutjanus_fulviflamma_pres"
## [1] "lutjanus_fulvus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  3063.66688468584"

## [1] "parupeneus_barberinoides_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC parupeneus_barberinoides_pres :  3063.66688468584"

## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"

## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## [1] "epinephelus_merra_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  4072.88917958112"

## [1] "siganus_spinus_pres"

knitr::kable(glm_tab, escape=TRUE)

	species	coefficient	pvalue
2	abudefduf_sexfasciatus_pres	log(df.sample_data$distance_seagrass)	0.0000000
3	abudefduf_sexfasciatus_pres	df.sample_data$size_seagrass	0.0000000
4	abudefduf_sexfasciatus_pres	df.sample_data$distance_mangroves	0.0000000
5	abudefduf_sexfasciatus_pres	df.sample_data$size_mangroves	0.0000000
6	abudefduf_sexfasciatus_pres	df.sample_data$mpanon-mpa	0.0000000
7	abudefduf_sexfasciatus_pres	df.sample_data$depth10m	0.0000000
8	abudefduf_sexfasciatus_pres	df.sample_data$northsouth	0.0000000
9	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
10	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
11	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
12	abudefduf_sexfasciatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
13	abudefduf_sexfasciatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
14	abudefduf_sexfasciatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
15	abudefduf_sexfasciatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
16	abudefduf_sexfasciatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
17	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
18	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
21	cheilinus_chlorourus_pres	log(df.sample_data$distance_seagrass)	0.0000000
31	cheilinus_chlorourus_pres	df.sample_data$size_seagrass	0.0000000
41	cheilinus_chlorourus_pres	df.sample_data$distance_mangroves	0.0000000
51	cheilinus_chlorourus_pres	df.sample_data$size_mangroves	0.0000000
61	cheilinus_chlorourus_pres	df.sample_data$mpanon-mpa	0.0000000
71	cheilinus_chlorourus_pres	df.sample_data$depth10m	0.0000000
81	cheilinus_chlorourus_pres	df.sample_data$northsouth	0.0000000
91	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
101	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
111	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)mpanon-mpa	0.0000000
121	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
131	cheilinus_chlorourus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
141	cheilinus_chlorourus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
151	cheilinus_chlorourus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
161	cheilinus_chlorourus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
171	cheilinus_chlorourus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
181	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
19	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
22	cheilodipterus_quinquelineatus_pres	log(df.sample_data$distance_seagrass)	0.0000000
32	cheilodipterus_quinquelineatus_pres	df.sample_data$size_seagrass	0.0000000
42	cheilodipterus_quinquelineatus_pres	df.sample_data$distance_mangroves	0.0000000
52	cheilodipterus_quinquelineatus_pres	df.sample_data$size_mangroves	0.0000000
62	cheilodipterus_quinquelineatus_pres	df.sample_data$mpanon-mpa	0.0000000
72	cheilodipterus_quinquelineatus_pres	df.sample_data$northsouth	0.0000000
82	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
92	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
23	fistularia_commersonii_pres	log(df.sample_data$distance_seagrass)	0.0000000
33	fistularia_commersonii_pres	df.sample_data$size_seagrass	0.0000000
43	fistularia_commersonii_pres	df.sample_data$distance_mangroves	0.0000000
53	fistularia_commersonii_pres	df.sample_data$size_mangroves	0.0000000
63	fistularia_commersonii_pres	df.sample_data$mpanon-mpa	0.0000000
73	fistularia_commersonii_pres	df.sample_data$depth10m	0.0000000
83	fistularia_commersonii_pres	df.sample_data$northsouth	0.0000000
93	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
102	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
112	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
122	fistularia_commersonii_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
132	fistularia_commersonii_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
142	fistularia_commersonii_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
152	fistularia_commersonii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
162	fistularia_commersonii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
172	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
182	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
611	halichoeres_hortulanus_pres	df.sample_data$size_seagrass	0.0229880
621	halichoeres_hortulanus_pres	df.sample_data$depth10m	0.0105085
631	halichoeres_hortulanus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0407937
64	halichoeres_hortulanus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0489772
65	halichoeres_hortulanus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0179803
24	halichoeres_scapularis_pres	log(df.sample_data$distance_seagrass)	0.0000000
34	halichoeres_scapularis_pres	df.sample_data$size_seagrass	0.0000000
44	halichoeres_scapularis_pres	df.sample_data$distance_mangroves	0.0000000
54	halichoeres_scapularis_pres	df.sample_data$size_mangroves	0.0000000
66	halichoeres_scapularis_pres	df.sample_data$mpanon-mpa	0.0000000
74	halichoeres_scapularis_pres	df.sample_data$depth10m	0.0000000
84	halichoeres_scapularis_pres	df.sample_data$northsouth	0.0000000
94	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
103	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
113	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
123	halichoeres_scapularis_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
133	halichoeres_scapularis_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
143	halichoeres_scapularis_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
153	halichoeres_scapularis_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
163	halichoeres_scapularis_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
173	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
183	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
25	lutjanus_decussatus_pres	log(df.sample_data$distance_seagrass)	0.0000000
35	lutjanus_decussatus_pres	df.sample_data$size_seagrass	0.0000000
45	lutjanus_decussatus_pres	df.sample_data$distance_mangroves	0.0000000
55	lutjanus_decussatus_pres	df.sample_data$size_mangroves	0.0000000
67	lutjanus_decussatus_pres	df.sample_data$mpanon-mpa	0.0000000
75	lutjanus_decussatus_pres	df.sample_data$depth10m	0.0000000
85	lutjanus_decussatus_pres	df.sample_data$northsouth	0.0000000
95	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
104	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
114	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
124	lutjanus_decussatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
134	lutjanus_decussatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
144	lutjanus_decussatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
154	lutjanus_decussatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
164	lutjanus_decussatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
174	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
184	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
26	lutjanus_monostigma_pres	log(df.sample_data$distance_seagrass)	0.0000000
36	lutjanus_monostigma_pres	df.sample_data$size_seagrass	0.0000000
46	lutjanus_monostigma_pres	df.sample_data$distance_mangroves	0.0000000
56	lutjanus_monostigma_pres	df.sample_data$size_mangroves	0.0000000
68	lutjanus_monostigma_pres	df.sample_data$mpanon-mpa	0.0000000
76	lutjanus_monostigma_pres	df.sample_data$depth10m	0.0000000
86	lutjanus_monostigma_pres	df.sample_data$northsouth	0.0000000
96	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
105	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
115	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
125	lutjanus_monostigma_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
135	lutjanus_monostigma_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
145	lutjanus_monostigma_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
155	lutjanus_monostigma_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
165	lutjanus_monostigma_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
175	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
185	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
27	mulloidichthys_flavolineatus_pres	log(df.sample_data$distance_seagrass)	0.0000000
37	mulloidichthys_flavolineatus_pres	df.sample_data$size_seagrass	0.0000000
47	mulloidichthys_flavolineatus_pres	df.sample_data$distance_mangroves	0.0000000
57	mulloidichthys_flavolineatus_pres	df.sample_data$size_mangroves	0.0000000
69	mulloidichthys_flavolineatus_pres	df.sample_data$mpanon-mpa	0.0000000
77	mulloidichthys_flavolineatus_pres	df.sample_data$depth10m	0.0000000
87	mulloidichthys_flavolineatus_pres	df.sample_data$northsouth	0.0000000
97	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
106	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
116	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
126	mulloidichthys_flavolineatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
136	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
146	mulloidichthys_flavolineatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
156	mulloidichthys_flavolineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
166	mulloidichthys_flavolineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
176	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
186	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
28	parupeneus_barberinus_pres	log(df.sample_data$distance_seagrass)	0.0367339
38	parupeneus_barberinus_pres	df.sample_data$size_seagrass	0.0357843
48	parupeneus_barberinus_pres	df.sample_data$distance_mangroves	0.0216834
58	parupeneus_barberinus_pres	df.sample_data$mpanon-mpa	0.0285194
610	parupeneus_barberinus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0221497
29	stethojulis_trilineata_pres	log(df.sample_data$distance_seagrass)	0.0000000
39	stethojulis_trilineata_pres	df.sample_data$size_seagrass	0.0000000
49	stethojulis_trilineata_pres	df.sample_data$distance_mangroves	0.0000000
59	stethojulis_trilineata_pres	df.sample_data$size_mangroves	0.0000000
612	stethojulis_trilineata_pres	df.sample_data$mpanon-mpa	0.0000000
78	stethojulis_trilineata_pres	df.sample_data$depth10m	0.0000000
88	stethojulis_trilineata_pres	df.sample_data$northsouth	0.0000000
98	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
107	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
117	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
127	stethojulis_trilineata_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
137	stethojulis_trilineata_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
147	stethojulis_trilineata_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
157	stethojulis_trilineata_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
167	stethojulis_trilineata_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
177	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
187	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
210	lutjanus_fulvus_pres	log(df.sample_data$distance_seagrass)	0.0000000
310	lutjanus_fulvus_pres	df.sample_data$size_seagrass	0.0000000
410	lutjanus_fulvus_pres	df.sample_data$distance_mangroves	0.0000000
510	lutjanus_fulvus_pres	df.sample_data$size_mangroves	0.0000000
613	lutjanus_fulvus_pres	df.sample_data$mpanon-mpa	0.0000000
79	lutjanus_fulvus_pres	df.sample_data$depth10m	0.0000000
89	lutjanus_fulvus_pres	df.sample_data$northsouth	0.0000000
99	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
108	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
118	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
128	lutjanus_fulvus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
138	lutjanus_fulvus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
148	lutjanus_fulvus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
158	lutjanus_fulvus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
168	lutjanus_fulvus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
178	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
188	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
211	parupeneus_barberinoides_pres	log(df.sample_data$distance_seagrass)	0.0000000
311	parupeneus_barberinoides_pres	df.sample_data$size_seagrass	0.0000000
411	parupeneus_barberinoides_pres	df.sample_data$distance_mangroves	0.0000000
511	parupeneus_barberinoides_pres	df.sample_data$size_mangroves	0.0000000
614	parupeneus_barberinoides_pres	df.sample_data$mpanon-mpa	0.0000000
710	parupeneus_barberinoides_pres	df.sample_data$depth10m	0.0000000
810	parupeneus_barberinoides_pres	df.sample_data$northsouth	0.0000000
910	parupeneus_barberinoides_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
109	parupeneus_barberinoides_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
119	parupeneus_barberinoides_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
129	parupeneus_barberinoides_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
139	parupeneus_barberinoides_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
149	parupeneus_barberinoides_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
159	parupeneus_barberinoides_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
169	parupeneus_barberinoides_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
179	parupeneus_barberinoides_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
189	parupeneus_barberinoides_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
190	scolopsis_bilineata_pres	df.sample_data$size_seagrass	0.0178852
191	scolopsis_bilineata_pres	df.sample_data$northsouth	0.0088858
192	scolopsis_bilineata_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0317449
212	epinephelus_merra_pres	log(df.sample_data$distance_seagrass)	0.0000000
312	epinephelus_merra_pres	df.sample_data$size_seagrass	0.0000000
412	epinephelus_merra_pres	df.sample_data$distance_mangroves	0.0000000
512	epinephelus_merra_pres	df.sample_data$size_mangroves	0.0000000
615	epinephelus_merra_pres	df.sample_data$mpanon-mpa	0.0000000
711	epinephelus_merra_pres	df.sample_data$depth10m	0.0000000
811	epinephelus_merra_pres	df.sample_data$northsouth	0.0000000
911	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
1010	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
1110	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1210	epinephelus_merra_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1310	epinephelus_merra_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1410	epinephelus_merra_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1510	epinephelus_merra_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1610	epinephelus_merra_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1710	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1810	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000

log(distance_seagrass) & log(size_seagrass)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ (log(df.sample_data$distance_seagrass)) * (log(df.sample_data$size_seagrass)) * df.sample_data$distance_mangroves * df.sample_data$size_mangroves * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}

## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC abudefduf_sexfasciatus_pres :  1723.73394312179"

## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  2486.96843045997"

## [1] "cheilinus_undulatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "fistularia_commersonii_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  5370.46070158934"

## [1] "halichoeres_argus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_argus_pres :  2342.7938169035"

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"

## [1] "halichoeres_scapularis_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  7172.6433710452"

## [1] "lethrinus_harak_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_harak_pres :  252.261920334703"

## [1] "lutjanus_decussatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  5514.63531514581"

## [1] "lutjanus_gibbus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  828.960374560578"

## [1] "lutjanus_monostigma_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  3640.36533891172"

## [1] "mulloidichthys_flavolineatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  1694.00805589939"

## [1] "parupeneus_barberinus_pres"
## [1] "siganus_guttatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_guttatus_pres :  901.047681338812"

## [1] "siganus_virgatus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_virgatus_pres :  1261.48421522998"

## [1] "sphyraena_barracuda_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "stethojulis_trilineata_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  1694.00805589939"

## [1] "plectorhinchus_flavomaculatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_obsoletus_pres :  15895.2074912115"

## [1] "lutjanus_ehrenbergii_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_ehrenbergii_pres :  396.436533891172"

## [1] "lutjanus_fulviflamma_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulviflamma_pres :  756.873067782343"

## [1] "lutjanus_fulvus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  3063.66688468584"

## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"

## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC scarus_psittacus_pres :  2054.44458979056"

## [1] "epinephelus_merra_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  6091.33376937168"

## [1] "siganus_spinus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_spinus_pres :  13083.8025268604"

knitr::kable(glm_tab, escape=TRUE)

	species	coefficient	pvalue
2	abudefduf_sexfasciatus_pres	log(df.sample_data$distance_seagrass)	0.0000000
3	abudefduf_sexfasciatus_pres	log(df.sample_data$size_seagrass)	0.0000000
4	abudefduf_sexfasciatus_pres	df.sample_data$distance_mangroves	0.0000000
5	abudefduf_sexfasciatus_pres	df.sample_data$size_mangroves	0.0000000
6	abudefduf_sexfasciatus_pres	df.sample_data$mpanon-mpa	0.0000000
7	abudefduf_sexfasciatus_pres	df.sample_data$depth10m	0.0000000
8	abudefduf_sexfasciatus_pres	df.sample_data$northsouth	0.0000418
9	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
10	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
11	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
12	abudefduf_sexfasciatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
13	abudefduf_sexfasciatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
14	abudefduf_sexfasciatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
15	abudefduf_sexfasciatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
16	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)northsouth	0.0000002
17	abudefduf_sexfasciatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
18	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
19	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
21	cheilinus_chlorourus_pres	log(df.sample_data$distance_seagrass)	0.0000000
31	cheilinus_chlorourus_pres	log(df.sample_data$size_seagrass)	0.0000000
41	cheilinus_chlorourus_pres	df.sample_data$distance_mangroves	0.0000000
51	cheilinus_chlorourus_pres	df.sample_data$size_mangroves	0.0000000
61	cheilinus_chlorourus_pres	df.sample_data$mpanon-mpa	0.0000000
71	cheilinus_chlorourus_pres	df.sample_data$depth10m	0.0000000
81	cheilinus_chlorourus_pres	df.sample_data$northsouth	0.0000000
91	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
101	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
111	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
121	cheilinus_chlorourus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
131	cheilinus_chlorourus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
141	cheilinus_chlorourus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
151	cheilinus_chlorourus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
161	cheilinus_chlorourus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
171	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
181	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
22	fistularia_commersonii_pres	log(df.sample_data$distance_seagrass)	0.0000000
32	fistularia_commersonii_pres	log(df.sample_data$size_seagrass)	0.0000000
42	fistularia_commersonii_pres	df.sample_data$distance_mangroves	0.0000000
52	fistularia_commersonii_pres	df.sample_data$size_mangroves	0.0000000
62	fistularia_commersonii_pres	df.sample_data$mpanon-mpa	0.0000000
72	fistularia_commersonii_pres	df.sample_data$depth10m	0.0000000
82	fistularia_commersonii_pres	df.sample_data$northsouth	0.0000000
92	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
102	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
112	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
122	fistularia_commersonii_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
132	fistularia_commersonii_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
142	fistularia_commersonii_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
152	fistularia_commersonii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
162	fistularia_commersonii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
172	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
182	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
23	halichoeres_argus_pres	log(df.sample_data$distance_seagrass)	0.0000000
33	halichoeres_argus_pres	log(df.sample_data$size_seagrass)	0.0000000
43	halichoeres_argus_pres	df.sample_data$distance_mangroves	0.0000000
53	halichoeres_argus_pres	df.sample_data$size_mangroves	0.0000000
63	halichoeres_argus_pres	df.sample_data$mpanon-mpa	0.0000000
73	halichoeres_argus_pres	df.sample_data$depth10m	0.0000000
83	halichoeres_argus_pres	df.sample_data$northsouth	0.0000000
93	halichoeres_argus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
103	halichoeres_argus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
113	halichoeres_argus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
123	halichoeres_argus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
133	halichoeres_argus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
143	halichoeres_argus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
153	halichoeres_argus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
163	halichoeres_argus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
173	halichoeres_argus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
183	halichoeres_argus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
70	halichoeres_hortulanus_pres	df.sample_data$depth10m	0.0076565
711	halichoeres_hortulanus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0198683
721	halichoeres_hortulanus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0114353
731	halichoeres_hortulanus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0375262
74	halichoeres_hortulanus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0132023
75	halichoeres_hortulanus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0121616
24	halichoeres_scapularis_pres	log(df.sample_data$distance_seagrass)	0.0000000
34	halichoeres_scapularis_pres	log(df.sample_data$size_seagrass)	0.0000000
44	halichoeres_scapularis_pres	df.sample_data$distance_mangroves	0.0000000
54	halichoeres_scapularis_pres	df.sample_data$size_mangroves	0.0000000
64	halichoeres_scapularis_pres	df.sample_data$mpanon-mpa	0.0000000
76	halichoeres_scapularis_pres	df.sample_data$depth10m	0.0000000
84	halichoeres_scapularis_pres	df.sample_data$northsouth	0.0000000
94	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
104	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
114	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
124	halichoeres_scapularis_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
134	halichoeres_scapularis_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
144	halichoeres_scapularis_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
154	halichoeres_scapularis_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
164	halichoeres_scapularis_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
174	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
184	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
25	lethrinus_harak_pres	log(df.sample_data$distance_seagrass)	0.0000000
35	lethrinus_harak_pres	log(df.sample_data$size_seagrass)	0.0000000
45	lethrinus_harak_pres	df.sample_data$distance_mangroves	0.0000000
55	lethrinus_harak_pres	df.sample_data$size_mangroves	0.0000000
65	lethrinus_harak_pres	df.sample_data$mpanon-mpa	0.0000000
77	lethrinus_harak_pres	df.sample_data$depth10m	0.0000000
85	lethrinus_harak_pres	df.sample_data$northsouth	0.0000000
95	lethrinus_harak_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
105	lethrinus_harak_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
115	lethrinus_harak_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
125	lethrinus_harak_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
135	lethrinus_harak_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
145	lethrinus_harak_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
155	lethrinus_harak_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
165	lethrinus_harak_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
175	lethrinus_harak_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
185	lethrinus_harak_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
26	lutjanus_decussatus_pres	log(df.sample_data$distance_seagrass)	0.0000000
36	lutjanus_decussatus_pres	log(df.sample_data$size_seagrass)	0.0000000
46	lutjanus_decussatus_pres	df.sample_data$distance_mangroves	0.0000000
56	lutjanus_decussatus_pres	df.sample_data$size_mangroves	0.0000000
66	lutjanus_decussatus_pres	df.sample_data$mpanon-mpa	0.0000000
78	lutjanus_decussatus_pres	df.sample_data$depth10m	0.0000000
86	lutjanus_decussatus_pres	df.sample_data$northsouth	0.0000000
96	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
106	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
116	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
126	lutjanus_decussatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
136	lutjanus_decussatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
146	lutjanus_decussatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
156	lutjanus_decussatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
166	lutjanus_decussatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
176	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
186	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
27	lutjanus_gibbus_pres	log(df.sample_data$distance_seagrass)	0.0000000
37	lutjanus_gibbus_pres	log(df.sample_data$size_seagrass)	0.0000000
47	lutjanus_gibbus_pres	df.sample_data$distance_mangroves	0.0000000
57	lutjanus_gibbus_pres	df.sample_data$size_mangroves	0.0000000
67	lutjanus_gibbus_pres	df.sample_data$mpanon-mpa	0.0000000
79	lutjanus_gibbus_pres	df.sample_data$depth10m	0.0000000
87	lutjanus_gibbus_pres	df.sample_data$northsouth	0.0000000
97	lutjanus_gibbus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
107	lutjanus_gibbus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
117	lutjanus_gibbus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
127	lutjanus_gibbus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
137	lutjanus_gibbus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
147	lutjanus_gibbus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
157	lutjanus_gibbus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
167	lutjanus_gibbus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
177	lutjanus_gibbus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
187	lutjanus_gibbus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
28	lutjanus_monostigma_pres	log(df.sample_data$distance_seagrass)	0.0000000
38	lutjanus_monostigma_pres	log(df.sample_data$size_seagrass)	0.0000000
48	lutjanus_monostigma_pres	df.sample_data$distance_mangroves	0.0000000
58	lutjanus_monostigma_pres	df.sample_data$size_mangroves	0.0000000
68	lutjanus_monostigma_pres	df.sample_data$mpanon-mpa	0.0000000
710	lutjanus_monostigma_pres	df.sample_data$depth10m	0.0000000
88	lutjanus_monostigma_pres	df.sample_data$northsouth	0.0000000
98	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
108	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
118	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
128	lutjanus_monostigma_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
138	lutjanus_monostigma_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
148	lutjanus_monostigma_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
158	lutjanus_monostigma_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
168	lutjanus_monostigma_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
178	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
188	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
29	mulloidichthys_flavolineatus_pres	log(df.sample_data$distance_seagrass)	0.0000000
39	mulloidichthys_flavolineatus_pres	log(df.sample_data$size_seagrass)	0.0000000
49	mulloidichthys_flavolineatus_pres	df.sample_data$distance_mangroves	0.0000000
59	mulloidichthys_flavolineatus_pres	df.sample_data$size_mangroves	0.0000000
69	mulloidichthys_flavolineatus_pres	df.sample_data$mpanon-mpa	0.0000000
712	mulloidichthys_flavolineatus_pres	df.sample_data$depth10m	0.0000000
89	mulloidichthys_flavolineatus_pres	df.sample_data$northsouth	0.0000000
99	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
109	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
119	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
129	mulloidichthys_flavolineatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
139	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
149	mulloidichthys_flavolineatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
159	mulloidichthys_flavolineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
169	mulloidichthys_flavolineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
179	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
189	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
210	siganus_guttatus_pres	log(df.sample_data$distance_seagrass)	0.0000000
310	siganus_guttatus_pres	log(df.sample_data$size_seagrass)	0.0000000
410	siganus_guttatus_pres	df.sample_data$distance_mangroves	0.0000000
510	siganus_guttatus_pres	df.sample_data$size_mangroves	0.0000000
610	siganus_guttatus_pres	df.sample_data$mpanon-mpa	0.0000000
713	siganus_guttatus_pres	df.sample_data$depth10m	0.0000000
810	siganus_guttatus_pres	df.sample_data$northsouth	0.0000000
910	siganus_guttatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
1010	siganus_guttatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
1110	siganus_guttatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1210	siganus_guttatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1310	siganus_guttatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1410	siganus_guttatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1510	siganus_guttatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1610	siganus_guttatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1710	siganus_guttatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1810	siganus_guttatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
211	siganus_virgatus_pres	log(df.sample_data$distance_seagrass)	0.0000000
311	siganus_virgatus_pres	log(df.sample_data$size_seagrass)	0.0000000
411	siganus_virgatus_pres	df.sample_data$distance_mangroves	0.0000000
511	siganus_virgatus_pres	df.sample_data$size_mangroves	0.0000000
611	siganus_virgatus_pres	df.sample_data$mpanon-mpa	0.0000000
714	siganus_virgatus_pres	df.sample_data$depth10m	0.0000000
811	siganus_virgatus_pres	df.sample_data$northsouth	0.0000000
911	siganus_virgatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
1011	siganus_virgatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
1111	siganus_virgatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1211	siganus_virgatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1311	siganus_virgatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1411	siganus_virgatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1511	siganus_virgatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1611	siganus_virgatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1711	siganus_virgatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1811	siganus_virgatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
212	stethojulis_trilineata_pres	log(df.sample_data$distance_seagrass)	0.0000000
312	stethojulis_trilineata_pres	log(df.sample_data$size_seagrass)	0.0000000
412	stethojulis_trilineata_pres	df.sample_data$distance_mangroves	0.0000000
512	stethojulis_trilineata_pres	df.sample_data$size_mangroves	0.0000000
612	stethojulis_trilineata_pres	df.sample_data$mpanon-mpa	0.0000000
715	stethojulis_trilineata_pres	df.sample_data$depth10m	0.0000000
812	stethojulis_trilineata_pres	df.sample_data$northsouth	0.0000000
912	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
1012	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
1112	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1212	stethojulis_trilineata_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1312	stethojulis_trilineata_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1412	stethojulis_trilineata_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1512	stethojulis_trilineata_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1612	stethojulis_trilineata_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1712	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1812	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
213	lethrinus_obsoletus_pres	log(df.sample_data$distance_seagrass)	0.0000000
313	lethrinus_obsoletus_pres	log(df.sample_data$size_seagrass)	0.0000000
413	lethrinus_obsoletus_pres	df.sample_data$distance_mangroves	0.0000000
513	lethrinus_obsoletus_pres	df.sample_data$size_mangroves	0.0000000
613	lethrinus_obsoletus_pres	df.sample_data$mpanon-mpa	0.0000000
716	lethrinus_obsoletus_pres	df.sample_data$depth10m	0.0000000
813	lethrinus_obsoletus_pres	df.sample_data$northsouth	0.0000000
913	lethrinus_obsoletus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
1013	lethrinus_obsoletus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
1113	lethrinus_obsoletus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1213	lethrinus_obsoletus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1313	lethrinus_obsoletus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1413	lethrinus_obsoletus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1513	lethrinus_obsoletus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1613	lethrinus_obsoletus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1713	lethrinus_obsoletus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1813	lethrinus_obsoletus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
214	lutjanus_ehrenbergii_pres	log(df.sample_data$distance_seagrass)	0.0000000
314	lutjanus_ehrenbergii_pres	log(df.sample_data$size_seagrass)	0.0000000
414	lutjanus_ehrenbergii_pres	df.sample_data$distance_mangroves	0.0000000
514	lutjanus_ehrenbergii_pres	df.sample_data$size_mangroves	0.0000000
614	lutjanus_ehrenbergii_pres	df.sample_data$mpanon-mpa	0.0000000
717	lutjanus_ehrenbergii_pres	df.sample_data$depth10m	0.0000000
814	lutjanus_ehrenbergii_pres	df.sample_data$northsouth	0.0000000
914	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
1014	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
1114	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1214	lutjanus_ehrenbergii_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1314	lutjanus_ehrenbergii_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1414	lutjanus_ehrenbergii_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1514	lutjanus_ehrenbergii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1614	lutjanus_ehrenbergii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1714	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1814	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
215	lutjanus_fulviflamma_pres	log(df.sample_data$distance_seagrass)	0.0000000
315	lutjanus_fulviflamma_pres	log(df.sample_data$size_seagrass)	0.0000000
415	lutjanus_fulviflamma_pres	df.sample_data$distance_mangroves	0.0000000
515	lutjanus_fulviflamma_pres	df.sample_data$size_mangroves	0.0000000
615	lutjanus_fulviflamma_pres	df.sample_data$mpanon-mpa	0.0000000
718	lutjanus_fulviflamma_pres	df.sample_data$depth10m	0.0000000
815	lutjanus_fulviflamma_pres	df.sample_data$northsouth	0.0000000
915	lutjanus_fulviflamma_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
1015	lutjanus_fulviflamma_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
1115	lutjanus_fulviflamma_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1215	lutjanus_fulviflamma_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1315	lutjanus_fulviflamma_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1415	lutjanus_fulviflamma_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1515	lutjanus_fulviflamma_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1615	lutjanus_fulviflamma_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1715	lutjanus_fulviflamma_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1815	lutjanus_fulviflamma_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
216	lutjanus_fulvus_pres	log(df.sample_data$distance_seagrass)	0.0000000
316	lutjanus_fulvus_pres	log(df.sample_data$size_seagrass)	0.0000000
416	lutjanus_fulvus_pres	df.sample_data$distance_mangroves	0.0000000
516	lutjanus_fulvus_pres	df.sample_data$size_mangroves	0.0000000
616	lutjanus_fulvus_pres	df.sample_data$mpanon-mpa	0.0000000
719	lutjanus_fulvus_pres	df.sample_data$depth10m	0.0000000
816	lutjanus_fulvus_pres	df.sample_data$northsouth	0.0000000
916	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
1016	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
1116	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1216	lutjanus_fulvus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1316	lutjanus_fulvus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1416	lutjanus_fulvus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1516	lutjanus_fulvus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1616	lutjanus_fulvus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1716	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1816	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
297	scolopsis_bilineata_pres	df.sample_data$northsouth	0.0235465
298	scolopsis_bilineata_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0244501
217	scarus_psittacus_pres	log(df.sample_data$distance_seagrass)	0.0000000
317	scarus_psittacus_pres	log(df.sample_data$size_seagrass)	0.0000000
417	scarus_psittacus_pres	df.sample_data$distance_mangroves	0.0000000
517	scarus_psittacus_pres	df.sample_data$size_mangroves	0.0000000
617	scarus_psittacus_pres	df.sample_data$mpanon-mpa	0.0000000
720	scarus_psittacus_pres	df.sample_data$depth10m	0.0000000
817	scarus_psittacus_pres	df.sample_data$northsouth	0.0000000
917	scarus_psittacus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
1017	scarus_psittacus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
1117	scarus_psittacus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1217	scarus_psittacus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1317	scarus_psittacus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1417	scarus_psittacus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1517	scarus_psittacus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1617	scarus_psittacus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1717	scarus_psittacus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1817	scarus_psittacus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
218	epinephelus_merra_pres	log(df.sample_data$distance_seagrass)	0.0000000
318	epinephelus_merra_pres	log(df.sample_data$size_seagrass)	0.0000000
418	epinephelus_merra_pres	df.sample_data$distance_mangroves	0.0000000
518	epinephelus_merra_pres	df.sample_data$size_mangroves	0.0000000
618	epinephelus_merra_pres	df.sample_data$mpanon-mpa	0.0000000
722	epinephelus_merra_pres	df.sample_data$depth10m	0.0000000
818	epinephelus_merra_pres	df.sample_data$northsouth	0.0000000
918	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
1018	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
1118	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1218	epinephelus_merra_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1318	epinephelus_merra_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1418	epinephelus_merra_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1518	epinephelus_merra_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1618	epinephelus_merra_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1718	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1818	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
219	siganus_spinus_pres	log(df.sample_data$distance_seagrass)	0.0000000
319	siganus_spinus_pres	log(df.sample_data$size_seagrass)	0.0000000
419	siganus_spinus_pres	df.sample_data$distance_mangroves	0.0000000
519	siganus_spinus_pres	df.sample_data$size_mangroves	0.0000000
619	siganus_spinus_pres	df.sample_data$mpanon-mpa	0.0000000
723	siganus_spinus_pres	df.sample_data$depth10m	0.0000000
819	siganus_spinus_pres	df.sample_data$northsouth	0.0000000
919	siganus_spinus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
1019	siganus_spinus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
1119	siganus_spinus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1219	siganus_spinus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1319	siganus_spinus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1419	siganus_spinus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1519	siganus_spinus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1619	siganus_spinus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1719	siganus_spinus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1819	siganus_spinus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000

log(size_mangroves)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * df.sample_data$size_seagrass * df.sample_data$distance_mangroves * log(df.sample_data$size_mangroves) * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}

## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC abudefduf_sexfasciatus_pres :  1766.09536267762"

## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  5082.1114744764"

## [1] "cheilinus_undulatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilodipterus_quinquelineatus_pres :  7172.6433710452"

## [1] "fistularia_commersonii_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  7388.9052913799"

## [1] "halichoeres_argus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"

## [1] "halichoeres_scapularis_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  7460.99259815813"

## [1] "lethrinus_harak_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_harak_pres :  252.261920334703"

## [1] "lutjanus_decussatus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  2631.14304401644"

## [1] "lutjanus_gibbus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  828.960374560578"

## [1] "lutjanus_monostigma_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  756.873067782343"

## [1] "mulloidichthys_flavolineatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  21734.2793402485"

## [1] "parupeneus_barberinus_pres"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "stethojulis_trilineata_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  1694.00805589939"

## [1] "plectorhinchus_flavomaculatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_microdon_pres :  252.261920334703"

## [1] "lethrinus_obsoletus_pres"
## [1] "lutjanus_ehrenbergii_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_ehrenbergii_pres :  396.436533891172"

## [1] "lutjanus_fulviflamma_pres"
## [1] "lutjanus_fulvus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  4072.88917958112"

## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"

## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC scarus_psittacus_pres :  1766.09536267762"

## [1] "epinephelus_merra_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  4793.76224736346"

## [1] "siganus_spinus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_spinus_pres :  10200.310255731"

knitr::kable(glm_tab, escape=TRUE)

	species	coefficient	pvalue
2	abudefduf_sexfasciatus_pres	df.sample_data$distance_seagrass	0.0000000
3	abudefduf_sexfasciatus_pres	df.sample_data$size_seagrass	0.0000000
4	abudefduf_sexfasciatus_pres	df.sample_data$distance_mangroves	0.0000000
5	abudefduf_sexfasciatus_pres	log(df.sample_data$size_mangroves)	0.0000000
6	abudefduf_sexfasciatus_pres	df.sample_data$mpanon-mpa	0.0000000
7	abudefduf_sexfasciatus_pres	df.sample_data$depth10m	0.0000000
8	abudefduf_sexfasciatus_pres	df.sample_data$northsouth	0.0000000
9	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
10	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
11	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
12	abudefduf_sexfasciatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
13	abudefduf_sexfasciatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
14	abudefduf_sexfasciatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
15	abudefduf_sexfasciatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
16	abudefduf_sexfasciatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
17	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
18	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
21	cheilinus_chlorourus_pres	df.sample_data$distance_seagrass	0.0000000
31	cheilinus_chlorourus_pres	df.sample_data$size_seagrass	0.0000000
41	cheilinus_chlorourus_pres	df.sample_data$distance_mangroves	0.0000000
51	cheilinus_chlorourus_pres	log(df.sample_data$size_mangroves)	0.0000000
61	cheilinus_chlorourus_pres	df.sample_data$mpanon-mpa	0.0000000
71	cheilinus_chlorourus_pres	df.sample_data$depth10m	0.0000000
81	cheilinus_chlorourus_pres	df.sample_data$northsouth	0.0000000
91	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
101	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
111	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
121	cheilinus_chlorourus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
131	cheilinus_chlorourus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
141	cheilinus_chlorourus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
151	cheilinus_chlorourus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
161	cheilinus_chlorourus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
171	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
181	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
22	cheilodipterus_quinquelineatus_pres	df.sample_data$distance_seagrass	0.0000000
32	cheilodipterus_quinquelineatus_pres	df.sample_data$size_seagrass	0.0000000
42	cheilodipterus_quinquelineatus_pres	df.sample_data$distance_mangroves	0.0000000
52	cheilodipterus_quinquelineatus_pres	log(df.sample_data$size_mangroves)	0.0000000
62	cheilodipterus_quinquelineatus_pres	df.sample_data$mpanon-mpa	0.0000000
72	cheilodipterus_quinquelineatus_pres	df.sample_data$depth10m	0.0000000
82	cheilodipterus_quinquelineatus_pres	df.sample_data$northsouth	0.0000000
92	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
102	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
112	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
122	cheilodipterus_quinquelineatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
132	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
142	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
152	cheilodipterus_quinquelineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
162	cheilodipterus_quinquelineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
172	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
182	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
23	fistularia_commersonii_pres	df.sample_data$distance_seagrass	0.0000000
33	fistularia_commersonii_pres	df.sample_data$size_seagrass	0.0000000
43	fistularia_commersonii_pres	df.sample_data$distance_mangroves	0.0000000
53	fistularia_commersonii_pres	log(df.sample_data$size_mangroves)	0.0000000
63	fistularia_commersonii_pres	df.sample_data$mpanon-mpa	0.0000000
73	fistularia_commersonii_pres	df.sample_data$depth10m	0.0000000
83	fistularia_commersonii_pres	df.sample_data$northsouth	0.0000000
93	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
103	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
113	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
123	fistularia_commersonii_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
133	fistularia_commersonii_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
143	fistularia_commersonii_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
153	fistularia_commersonii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
163	fistularia_commersonii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
173	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
183	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
69	halichoeres_hortulanus_pres	df.sample_data$depth10m	0.0252364
70	halichoeres_hortulanus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0157194
711	halichoeres_hortulanus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0243675
721	halichoeres_hortulanus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0382267
731	halichoeres_hortulanus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0402841
24	halichoeres_scapularis_pres	df.sample_data$distance_seagrass	0.0000000
34	halichoeres_scapularis_pres	df.sample_data$size_seagrass	0.0000000
44	halichoeres_scapularis_pres	df.sample_data$distance_mangroves	0.0000000
54	halichoeres_scapularis_pres	log(df.sample_data$size_mangroves)	0.0000000
64	halichoeres_scapularis_pres	df.sample_data$mpanon-mpa	0.0000000
74	halichoeres_scapularis_pres	df.sample_data$depth10m	0.0000000
84	halichoeres_scapularis_pres	df.sample_data$northsouth	0.0000000
94	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
104	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
114	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
124	halichoeres_scapularis_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
134	halichoeres_scapularis_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
144	halichoeres_scapularis_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
154	halichoeres_scapularis_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
164	halichoeres_scapularis_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
174	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
184	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
25	lethrinus_harak_pres	df.sample_data$distance_seagrass	0.0000000
35	lethrinus_harak_pres	df.sample_data$size_seagrass	0.0000000
45	lethrinus_harak_pres	df.sample_data$distance_mangroves	0.0000000
55	lethrinus_harak_pres	log(df.sample_data$size_mangroves)	0.0000000
65	lethrinus_harak_pres	df.sample_data$mpanon-mpa	0.0000000
75	lethrinus_harak_pres	df.sample_data$depth10m	0.0000000
85	lethrinus_harak_pres	df.sample_data$northsouth	0.0000000
95	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
105	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
115	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
125	lethrinus_harak_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
135	lethrinus_harak_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
145	lethrinus_harak_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
155	lethrinus_harak_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
165	lethrinus_harak_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
175	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
185	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
26	lutjanus_decussatus_pres	df.sample_data$distance_seagrass	0.0000000
36	lutjanus_decussatus_pres	df.sample_data$size_seagrass	0.0000000
46	lutjanus_decussatus_pres	df.sample_data$distance_mangroves	0.0000000
56	lutjanus_decussatus_pres	log(df.sample_data$size_mangroves)	0.0000000
66	lutjanus_decussatus_pres	df.sample_data$mpanon-mpa	0.0000000
76	lutjanus_decussatus_pres	df.sample_data$depth10m	0.0000000
86	lutjanus_decussatus_pres	df.sample_data$northsouth	0.0000000
96	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
106	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
116	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
126	lutjanus_decussatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
136	lutjanus_decussatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
146	lutjanus_decussatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
156	lutjanus_decussatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
166	lutjanus_decussatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
176	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
186	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
27	lutjanus_gibbus_pres	df.sample_data$distance_seagrass	0.0000000
37	lutjanus_gibbus_pres	df.sample_data$size_seagrass	0.0000000
47	lutjanus_gibbus_pres	df.sample_data$distance_mangroves	0.0000000
57	lutjanus_gibbus_pres	log(df.sample_data$size_mangroves)	0.0000000
67	lutjanus_gibbus_pres	df.sample_data$mpanon-mpa	0.0000000
77	lutjanus_gibbus_pres	df.sample_data$depth10m	0.0000000
87	lutjanus_gibbus_pres	df.sample_data$northsouth	0.0000000
97	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
107	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
117	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
127	lutjanus_gibbus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
137	lutjanus_gibbus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
147	lutjanus_gibbus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
157	lutjanus_gibbus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
167	lutjanus_gibbus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
177	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
187	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
28	lutjanus_monostigma_pres	df.sample_data$distance_seagrass	0.0000000
38	lutjanus_monostigma_pres	df.sample_data$size_seagrass	0.0000000
48	lutjanus_monostigma_pres	df.sample_data$distance_mangroves	0.0000000
58	lutjanus_monostigma_pres	log(df.sample_data$size_mangroves)	0.0000000
68	lutjanus_monostigma_pres	df.sample_data$mpanon-mpa	0.0000000
78	lutjanus_monostigma_pres	df.sample_data$depth10m	0.0000000
88	lutjanus_monostigma_pres	df.sample_data$northsouth	0.0000000
98	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
108	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
118	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
128	lutjanus_monostigma_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
138	lutjanus_monostigma_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
148	lutjanus_monostigma_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
158	lutjanus_monostigma_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
168	lutjanus_monostigma_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
178	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
188	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
29	mulloidichthys_flavolineatus_pres	df.sample_data$distance_seagrass	0.0000000
39	mulloidichthys_flavolineatus_pres	df.sample_data$size_seagrass	0.0000000
49	mulloidichthys_flavolineatus_pres	df.sample_data$distance_mangroves	0.0000000
59	mulloidichthys_flavolineatus_pres	log(df.sample_data$size_mangroves)	0.0000000
610	mulloidichthys_flavolineatus_pres	df.sample_data$mpanon-mpa	0.0000000
79	mulloidichthys_flavolineatus_pres	df.sample_data$depth10m	0.0000000
89	mulloidichthys_flavolineatus_pres	df.sample_data$northsouth	0.0000000
99	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
109	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
119	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
129	mulloidichthys_flavolineatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
139	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
149	mulloidichthys_flavolineatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
159	mulloidichthys_flavolineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
169	mulloidichthys_flavolineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
179	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
189	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
210	stethojulis_trilineata_pres	df.sample_data$distance_seagrass	0.0000000
310	stethojulis_trilineata_pres	df.sample_data$size_seagrass	0.0000000
410	stethojulis_trilineata_pres	df.sample_data$distance_mangroves	0.0000000
510	stethojulis_trilineata_pres	log(df.sample_data$size_mangroves)	0.0000000
611	stethojulis_trilineata_pres	df.sample_data$mpanon-mpa	0.0000000
710	stethojulis_trilineata_pres	df.sample_data$depth10m	0.0000000
810	stethojulis_trilineata_pres	df.sample_data$northsouth	0.0000000
910	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1010	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1110	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1210	stethojulis_trilineata_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1310	stethojulis_trilineata_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1410	stethojulis_trilineata_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1510	stethojulis_trilineata_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1610	stethojulis_trilineata_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1710	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1810	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
211	lethrinus_microdon_pres	df.sample_data$distance_seagrass	0.0000000
311	lethrinus_microdon_pres	df.sample_data$size_seagrass	0.0000000
411	lethrinus_microdon_pres	df.sample_data$distance_mangroves	0.0000000
511	lethrinus_microdon_pres	log(df.sample_data$size_mangroves)	0.0000000
612	lethrinus_microdon_pres	df.sample_data$mpanon-mpa	0.0000000
712	lethrinus_microdon_pres	df.sample_data$depth10m	0.0000000
811	lethrinus_microdon_pres	df.sample_data$northsouth	0.0000000
911	lethrinus_microdon_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1011	lethrinus_microdon_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1111	lethrinus_microdon_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1211	lethrinus_microdon_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1311	lethrinus_microdon_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1411	lethrinus_microdon_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1511	lethrinus_microdon_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1611	lethrinus_microdon_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1711	lethrinus_microdon_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1811	lethrinus_microdon_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
212	lutjanus_ehrenbergii_pres	df.sample_data$distance_seagrass	0.0000000
312	lutjanus_ehrenbergii_pres	df.sample_data$size_seagrass	0.0000000
412	lutjanus_ehrenbergii_pres	df.sample_data$distance_mangroves	0.0000000
512	lutjanus_ehrenbergii_pres	log(df.sample_data$size_mangroves)	0.0000000
613	lutjanus_ehrenbergii_pres	df.sample_data$mpanon-mpa	0.0000000
713	lutjanus_ehrenbergii_pres	df.sample_data$depth10m	0.0000000
812	lutjanus_ehrenbergii_pres	df.sample_data$northsouth	0.0000000
912	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1012	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1112	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1212	lutjanus_ehrenbergii_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1312	lutjanus_ehrenbergii_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1412	lutjanus_ehrenbergii_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1512	lutjanus_ehrenbergii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1612	lutjanus_ehrenbergii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1712	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1812	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
213	lutjanus_fulvus_pres	df.sample_data$distance_seagrass	0.0000000
313	lutjanus_fulvus_pres	df.sample_data$size_seagrass	0.0000000
413	lutjanus_fulvus_pres	df.sample_data$distance_mangroves	0.0000000
513	lutjanus_fulvus_pres	log(df.sample_data$size_mangroves)	0.0000000
614	lutjanus_fulvus_pres	df.sample_data$mpanon-mpa	0.0000000
714	lutjanus_fulvus_pres	df.sample_data$depth10m	0.0000000
813	lutjanus_fulvus_pres	df.sample_data$northsouth	0.0000000
913	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1013	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1113	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1213	lutjanus_fulvus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1313	lutjanus_fulvus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1413	lutjanus_fulvus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1513	lutjanus_fulvus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1613	lutjanus_fulvus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1713	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1813	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
244	scolopsis_bilineata_pres	df.sample_data$size_seagrass	0.0321339
214	scarus_psittacus_pres	df.sample_data$distance_seagrass	0.0000000
314	scarus_psittacus_pres	df.sample_data$size_seagrass	0.0000000
414	scarus_psittacus_pres	df.sample_data$distance_mangroves	0.0000000
514	scarus_psittacus_pres	log(df.sample_data$size_mangroves)	0.0000000
615	scarus_psittacus_pres	df.sample_data$mpanon-mpa	0.0000000
715	scarus_psittacus_pres	df.sample_data$depth10m	0.0000000
814	scarus_psittacus_pres	df.sample_data$northsouth	0.0000000
914	scarus_psittacus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1014	scarus_psittacus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1114	scarus_psittacus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1214	scarus_psittacus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1314	scarus_psittacus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1414	scarus_psittacus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1514	scarus_psittacus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1614	scarus_psittacus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1714	scarus_psittacus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1814	scarus_psittacus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
215	epinephelus_merra_pres	df.sample_data$distance_seagrass	0.0000000
315	epinephelus_merra_pres	df.sample_data$size_seagrass	0.0000000
415	epinephelus_merra_pres	df.sample_data$distance_mangroves	0.0000000
515	epinephelus_merra_pres	log(df.sample_data$size_mangroves)	0.0000000
616	epinephelus_merra_pres	df.sample_data$mpanon-mpa	0.0000000
716	epinephelus_merra_pres	df.sample_data$depth10m	0.0000000
815	epinephelus_merra_pres	df.sample_data$northsouth	0.0000000
915	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1015	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1115	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1215	epinephelus_merra_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1315	epinephelus_merra_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1415	epinephelus_merra_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1515	epinephelus_merra_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1615	epinephelus_merra_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1715	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1815	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
216	siganus_spinus_pres	df.sample_data$distance_seagrass	0.0000000
316	siganus_spinus_pres	df.sample_data$size_seagrass	0.0000000
416	siganus_spinus_pres	df.sample_data$distance_mangroves	0.0000000
516	siganus_spinus_pres	log(df.sample_data$size_mangroves)	0.0000000
617	siganus_spinus_pres	df.sample_data$mpanon-mpa	0.0000000
717	siganus_spinus_pres	df.sample_data$depth10m	0.0000000
816	siganus_spinus_pres	df.sample_data$northsouth	0.0000000
916	siganus_spinus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1016	siganus_spinus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1116	siganus_spinus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1216	siganus_spinus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1316	siganus_spinus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1416	siganus_spinus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1516	siganus_spinus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1616	siganus_spinus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1716	siganus_spinus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1816	siganus_spinus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000

log(distance_mangroves)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * df.sample_data$size_seagrass * log(df.sample_data$distance_mangroves) * df.sample_data$size_mangroves * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}

## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC abudefduf_sexfasciatus_pres :  12867.5406065257"

## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  2486.96843045997"

## [1] "cheilinus_undulatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilodipterus_quinquelineatus_pres :  8902.73873372282"

## [1] "fistularia_commersonii_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  3640.36533891172"

## [1] "halichoeres_argus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_argus_pres :  2342.7938169035"

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"

## [1] "halichoeres_scapularis_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "AIC halichoeres_scapularis_pres :  237.053776910275"

## [1] "lethrinus_harak_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_harak_pres :  252.261920334703"

## [1] "lutjanus_decussatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  2631.14304401644"

## [1] "lutjanus_gibbus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  12939.6279133039"

## [1] "lutjanus_monostigma_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  756.873067782343"

## [1] "mulloidichthys_flavolineatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  17120.6917064415"

## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres :  448.158014854641"

## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "stethojulis_trilineata_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  1694.00805589939"

## [1] "plectorhinchus_flavomaculatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "lethrinus_obsoletus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_obsoletus_pres :  468.523840669406"

## [1] "lutjanus_ehrenbergii_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_ehrenbergii_pres :  396.436533891172"

## [1] "lutjanus_fulviflamma_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulviflamma_pres :  756.873067782343"

## [1] "lutjanus_fulvus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  8109.77835916224"

## [1] "parupeneus_barberinoides_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC parupeneus_barberinoides_pres :  13732.5882878645"

## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"

## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC scarus_psittacus_pres :  5947.15915581521"

## [1] "epinephelus_merra_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  4793.76224736346"

## [1] "siganus_spinus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_spinus_pres :  18418.2632284497"

knitr::kable(glm_tab, escape=TRUE)

	species	coefficient	pvalue
2	abudefduf_sexfasciatus_pres	df.sample_data$distance_seagrass	0.0000000
3	abudefduf_sexfasciatus_pres	df.sample_data$size_seagrass	0.0000000
4	abudefduf_sexfasciatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
5	abudefduf_sexfasciatus_pres	df.sample_data$size_mangroves	0.0000000
6	abudefduf_sexfasciatus_pres	df.sample_data$mpanon-mpa	0.0000000
7	abudefduf_sexfasciatus_pres	df.sample_data$depth10m	0.0000000
8	abudefduf_sexfasciatus_pres	df.sample_data$northsouth	0.0000000
9	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
10	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
11	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
12	abudefduf_sexfasciatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
13	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
14	abudefduf_sexfasciatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
15	abudefduf_sexfasciatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
16	abudefduf_sexfasciatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
17	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
18	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
21	cheilinus_chlorourus_pres	df.sample_data$distance_seagrass	0.0000000
31	cheilinus_chlorourus_pres	df.sample_data$size_seagrass	0.0000000
41	cheilinus_chlorourus_pres	log(df.sample_data$distance_mangroves)	0.0000000
51	cheilinus_chlorourus_pres	df.sample_data$size_mangroves	0.0000000
61	cheilinus_chlorourus_pres	df.sample_data$mpanon-mpa	0.0000000
71	cheilinus_chlorourus_pres	df.sample_data$depth10m	0.0000000
81	cheilinus_chlorourus_pres	df.sample_data$northsouth	0.0000000
91	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
101	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
111	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
121	cheilinus_chlorourus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
131	cheilinus_chlorourus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
141	cheilinus_chlorourus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
151	cheilinus_chlorourus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
161	cheilinus_chlorourus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
171	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
181	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
22	cheilodipterus_quinquelineatus_pres	df.sample_data$distance_seagrass	0.0000000
32	cheilodipterus_quinquelineatus_pres	df.sample_data$size_seagrass	0.0000000
42	cheilodipterus_quinquelineatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
52	cheilodipterus_quinquelineatus_pres	df.sample_data$size_mangroves	0.0000000
62	cheilodipterus_quinquelineatus_pres	df.sample_data$mpanon-mpa	0.0000000
72	cheilodipterus_quinquelineatus_pres	df.sample_data$depth10m	0.0000000
82	cheilodipterus_quinquelineatus_pres	df.sample_data$northsouth	0.0000000
92	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
102	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
112	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
122	cheilodipterus_quinquelineatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
132	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
142	cheilodipterus_quinquelineatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
152	cheilodipterus_quinquelineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
162	cheilodipterus_quinquelineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
172	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
182	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
23	fistularia_commersonii_pres	df.sample_data$distance_seagrass	0.0000000
33	fistularia_commersonii_pres	df.sample_data$size_seagrass	0.0000000
43	fistularia_commersonii_pres	log(df.sample_data$distance_mangroves)	0.0000000
53	fistularia_commersonii_pres	df.sample_data$size_mangroves	0.0000000
63	fistularia_commersonii_pres	df.sample_data$mpanon-mpa	0.0000000
73	fistularia_commersonii_pres	df.sample_data$depth10m	0.0000000
83	fistularia_commersonii_pres	df.sample_data$northsouth	0.0000000
93	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
103	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
113	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
123	fistularia_commersonii_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
133	fistularia_commersonii_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
143	fistularia_commersonii_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
153	fistularia_commersonii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
163	fistularia_commersonii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
173	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
183	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
24	halichoeres_argus_pres	df.sample_data$distance_seagrass	0.0000000
34	halichoeres_argus_pres	df.sample_data$size_seagrass	0.0000000
44	halichoeres_argus_pres	log(df.sample_data$distance_mangroves)	0.0000000
54	halichoeres_argus_pres	df.sample_data$size_mangroves	0.0000000
64	halichoeres_argus_pres	df.sample_data$mpanon-mpa	0.0000000
74	halichoeres_argus_pres	df.sample_data$depth10m	0.0000000
84	halichoeres_argus_pres	df.sample_data$northsouth	0.0000000
94	halichoeres_argus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
104	halichoeres_argus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
114	halichoeres_argus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
124	halichoeres_argus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
134	halichoeres_argus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
144	halichoeres_argus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
154	halichoeres_argus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
164	halichoeres_argus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
174	halichoeres_argus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
184	halichoeres_argus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
86	halichoeres_hortulanus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000072
87	halichoeres_hortulanus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000944
88	halichoeres_hortulanus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0039762
89	halichoeres_hortulanus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0441167
90	halichoeres_hortulanus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0152737
911	halichoeres_hortulanus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0075603
921	halichoeres_scapularis_pres	df.sample_data$distance_seagrass	0.0148742
931	halichoeres_scapularis_pres	df.sample_data$size_seagrass	0.0013868
941	halichoeres_scapularis_pres	log(df.sample_data$distance_mangroves)	0.0041397
95	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0036484
96	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0168281
25	lethrinus_harak_pres	df.sample_data$distance_seagrass	0.0000000
35	lethrinus_harak_pres	df.sample_data$size_seagrass	0.0000000
45	lethrinus_harak_pres	log(df.sample_data$distance_mangroves)	0.0000000
55	lethrinus_harak_pres	df.sample_data$size_mangroves	0.0000000
65	lethrinus_harak_pres	df.sample_data$mpanon-mpa	0.0000000
75	lethrinus_harak_pres	df.sample_data$depth10m	0.0000000
85	lethrinus_harak_pres	df.sample_data$northsouth	0.0000000
97	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
105	lethrinus_harak_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
115	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
125	lethrinus_harak_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
135	lethrinus_harak_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
145	lethrinus_harak_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
155	lethrinus_harak_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
165	lethrinus_harak_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
175	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
185	lethrinus_harak_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
26	lutjanus_decussatus_pres	df.sample_data$distance_seagrass	0.0000000
36	lutjanus_decussatus_pres	df.sample_data$size_seagrass	0.0000000
46	lutjanus_decussatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
56	lutjanus_decussatus_pres	df.sample_data$size_mangroves	0.0000000
66	lutjanus_decussatus_pres	df.sample_data$mpanon-mpa	0.0000000
76	lutjanus_decussatus_pres	df.sample_data$depth10m	0.0000000
810	lutjanus_decussatus_pres	df.sample_data$northsouth	0.0000000
98	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
106	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
116	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
126	lutjanus_decussatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
136	lutjanus_decussatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
146	lutjanus_decussatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
156	lutjanus_decussatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
166	lutjanus_decussatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
176	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
186	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
27	lutjanus_gibbus_pres	df.sample_data$distance_seagrass	0.0000000
37	lutjanus_gibbus_pres	df.sample_data$size_seagrass	0.0000000
47	lutjanus_gibbus_pres	log(df.sample_data$distance_mangroves)	0.0000000
57	lutjanus_gibbus_pres	df.sample_data$size_mangroves	0.0000000
67	lutjanus_gibbus_pres	df.sample_data$mpanon-mpa	0.0000000
77	lutjanus_gibbus_pres	df.sample_data$depth10m	0.0000000
811	lutjanus_gibbus_pres	df.sample_data$northsouth	0.0000000
99	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
107	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
117	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
127	lutjanus_gibbus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
137	lutjanus_gibbus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
147	lutjanus_gibbus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
157	lutjanus_gibbus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
167	lutjanus_gibbus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
177	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
187	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
28	lutjanus_monostigma_pres	df.sample_data$distance_seagrass	0.0000000
38	lutjanus_monostigma_pres	df.sample_data$size_seagrass	0.0000000
48	lutjanus_monostigma_pres	log(df.sample_data$distance_mangroves)	0.0000000
58	lutjanus_monostigma_pres	df.sample_data$size_mangroves	0.0000000
68	lutjanus_monostigma_pres	df.sample_data$mpanon-mpa	0.0000000
78	lutjanus_monostigma_pres	df.sample_data$depth10m	0.0000000
812	lutjanus_monostigma_pres	df.sample_data$northsouth	0.0000000
910	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
108	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
118	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
128	lutjanus_monostigma_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
138	lutjanus_monostigma_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
148	lutjanus_monostigma_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
158	lutjanus_monostigma_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
168	lutjanus_monostigma_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
178	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
188	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
29	mulloidichthys_flavolineatus_pres	df.sample_data$distance_seagrass	0.0000000
39	mulloidichthys_flavolineatus_pres	df.sample_data$size_seagrass	0.0000000
49	mulloidichthys_flavolineatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
59	mulloidichthys_flavolineatus_pres	df.sample_data$size_mangroves	0.0000000
69	mulloidichthys_flavolineatus_pres	df.sample_data$mpanon-mpa	0.0000000
79	mulloidichthys_flavolineatus_pres	df.sample_data$depth10m	0.0000000
813	mulloidichthys_flavolineatus_pres	df.sample_data$northsouth	0.0000000
912	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
109	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
119	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
129	mulloidichthys_flavolineatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
139	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
149	mulloidichthys_flavolineatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
159	mulloidichthys_flavolineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
169	mulloidichthys_flavolineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
179	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
189	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
1821	parupeneus_barberinus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0161583
210	stethojulis_trilineata_pres	df.sample_data$distance_seagrass	0.0000000
310	stethojulis_trilineata_pres	df.sample_data$size_seagrass	0.0000000
410	stethojulis_trilineata_pres	log(df.sample_data$distance_mangroves)	0.0000000
510	stethojulis_trilineata_pres	df.sample_data$size_mangroves	0.0000000
610	stethojulis_trilineata_pres	df.sample_data$mpanon-mpa	0.0000000
710	stethojulis_trilineata_pres	df.sample_data$depth10m	0.0000000
814	stethojulis_trilineata_pres	df.sample_data$northsouth	0.0000000
913	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1010	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1110	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1210	stethojulis_trilineata_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1310	stethojulis_trilineata_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1410	stethojulis_trilineata_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1510	stethojulis_trilineata_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1610	stethojulis_trilineata_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1710	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1810	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
211	lethrinus_obsoletus_pres	df.sample_data$distance_seagrass	0.0000000
311	lethrinus_obsoletus_pres	df.sample_data$size_seagrass	0.0000000
411	lethrinus_obsoletus_pres	log(df.sample_data$distance_mangroves)	0.0000000
511	lethrinus_obsoletus_pres	df.sample_data$size_mangroves	0.0000000
611	lethrinus_obsoletus_pres	df.sample_data$mpanon-mpa	0.0000000
711	lethrinus_obsoletus_pres	df.sample_data$depth10m	0.0000000
815	lethrinus_obsoletus_pres	df.sample_data$northsouth	0.0000000
914	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1011	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1111	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1211	lethrinus_obsoletus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1311	lethrinus_obsoletus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1411	lethrinus_obsoletus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1511	lethrinus_obsoletus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1611	lethrinus_obsoletus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1711	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1811	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
212	lutjanus_ehrenbergii_pres	df.sample_data$distance_seagrass	0.0000000
312	lutjanus_ehrenbergii_pres	df.sample_data$size_seagrass	0.0000000
412	lutjanus_ehrenbergii_pres	log(df.sample_data$distance_mangroves)	0.0000000
512	lutjanus_ehrenbergii_pres	df.sample_data$size_mangroves	0.0000000
612	lutjanus_ehrenbergii_pres	df.sample_data$mpanon-mpa	0.0000000
712	lutjanus_ehrenbergii_pres	df.sample_data$depth10m	0.0000000
816	lutjanus_ehrenbergii_pres	df.sample_data$northsouth	0.0000000
915	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1012	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1112	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1212	lutjanus_ehrenbergii_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1312	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1412	lutjanus_ehrenbergii_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1512	lutjanus_ehrenbergii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1612	lutjanus_ehrenbergii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1712	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1812	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
213	lutjanus_fulviflamma_pres	df.sample_data$distance_seagrass	0.0000000
313	lutjanus_fulviflamma_pres	df.sample_data$size_seagrass	0.0000000
413	lutjanus_fulviflamma_pres	log(df.sample_data$distance_mangroves)	0.0000000
513	lutjanus_fulviflamma_pres	df.sample_data$size_mangroves	0.0000000
613	lutjanus_fulviflamma_pres	df.sample_data$mpanon-mpa	0.0000000
713	lutjanus_fulviflamma_pres	df.sample_data$depth10m	0.0000000
817	lutjanus_fulviflamma_pres	df.sample_data$northsouth	0.0000000
916	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1013	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1113	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1213	lutjanus_fulviflamma_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1313	lutjanus_fulviflamma_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1413	lutjanus_fulviflamma_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1513	lutjanus_fulviflamma_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1613	lutjanus_fulviflamma_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1713	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1813	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
214	lutjanus_fulvus_pres	df.sample_data$distance_seagrass	0.0000000
314	lutjanus_fulvus_pres	df.sample_data$size_seagrass	0.0000000
414	lutjanus_fulvus_pres	log(df.sample_data$distance_mangroves)	0.0000000
514	lutjanus_fulvus_pres	df.sample_data$size_mangroves	0.0000000
614	lutjanus_fulvus_pres	df.sample_data$mpanon-mpa	0.0000000
714	lutjanus_fulvus_pres	df.sample_data$depth10m	0.0000000
818	lutjanus_fulvus_pres	df.sample_data$northsouth	0.0000000
917	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1014	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1114	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1214	lutjanus_fulvus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1314	lutjanus_fulvus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1414	lutjanus_fulvus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1514	lutjanus_fulvus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1614	lutjanus_fulvus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1714	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1814	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
215	parupeneus_barberinoides_pres	df.sample_data$distance_seagrass	0.0000000
315	parupeneus_barberinoides_pres	df.sample_data$size_seagrass	0.0000000
415	parupeneus_barberinoides_pres	log(df.sample_data$distance_mangroves)	0.0000000
515	parupeneus_barberinoides_pres	df.sample_data$size_mangroves	0.0000000
615	parupeneus_barberinoides_pres	df.sample_data$mpanon-mpa	0.0000000
715	parupeneus_barberinoides_pres	df.sample_data$depth10m	0.0000000
819	parupeneus_barberinoides_pres	df.sample_data$northsouth	0.0000000
918	parupeneus_barberinoides_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1015	parupeneus_barberinoides_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1115	parupeneus_barberinoides_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1215	parupeneus_barberinoides_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1315	parupeneus_barberinoides_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1415	parupeneus_barberinoides_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1515	parupeneus_barberinoides_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1615	parupeneus_barberinoides_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1715	parupeneus_barberinoides_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1815	parupeneus_barberinoides_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
285	scolopsis_bilineata_pres	log(df.sample_data$distance_mangroves)	0.0422187
286	scolopsis_bilineata_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0395260
216	scarus_psittacus_pres	df.sample_data$distance_seagrass	0.0000000
316	scarus_psittacus_pres	df.sample_data$size_seagrass	0.0000000
416	scarus_psittacus_pres	log(df.sample_data$distance_mangroves)	0.0000000
516	scarus_psittacus_pres	df.sample_data$size_mangroves	0.0000000
616	scarus_psittacus_pres	df.sample_data$mpanon-mpa	0.0000000
716	scarus_psittacus_pres	df.sample_data$depth10m	0.0000000
820	scarus_psittacus_pres	df.sample_data$northsouth	0.0000000
919	scarus_psittacus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1016	scarus_psittacus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1116	scarus_psittacus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1216	scarus_psittacus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1316	scarus_psittacus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1416	scarus_psittacus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1516	scarus_psittacus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1616	scarus_psittacus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1716	scarus_psittacus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1816	scarus_psittacus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
217	epinephelus_merra_pres	df.sample_data$distance_seagrass	0.0000000
317	epinephelus_merra_pres	df.sample_data$size_seagrass	0.0000000
417	epinephelus_merra_pres	log(df.sample_data$distance_mangroves)	0.0000000
517	epinephelus_merra_pres	df.sample_data$size_mangroves	0.0000000
617	epinephelus_merra_pres	df.sample_data$mpanon-mpa	0.0000000
717	epinephelus_merra_pres	df.sample_data$depth10m	0.0000000
821	epinephelus_merra_pres	df.sample_data$northsouth	0.0000000
920	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1017	epinephelus_merra_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1117	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1217	epinephelus_merra_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1317	epinephelus_merra_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1417	epinephelus_merra_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1517	epinephelus_merra_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1617	epinephelus_merra_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1717	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1817	epinephelus_merra_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
218	siganus_spinus_pres	df.sample_data$distance_seagrass	0.0000000
318	siganus_spinus_pres	df.sample_data$size_seagrass	0.0000000
418	siganus_spinus_pres	log(df.sample_data$distance_mangroves)	0.0000000
518	siganus_spinus_pres	df.sample_data$size_mangroves	0.0000000
618	siganus_spinus_pres	df.sample_data$mpanon-mpa	0.0000000
718	siganus_spinus_pres	df.sample_data$depth10m	0.0000000
822	siganus_spinus_pres	df.sample_data$northsouth	0.0000000
922	siganus_spinus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1018	siganus_spinus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1118	siganus_spinus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1218	siganus_spinus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1318	siganus_spinus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1418	siganus_spinus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1518	siganus_spinus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1618	siganus_spinus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1718	siganus_spinus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1818	siganus_spinus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000

log(size_mangroves) & log(size_seagrass)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * (log(df.sample_data$size_seagrass)) * df.sample_data$distance_mangroves * log(df.sample_data$size_mangroves) * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}

## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC abudefduf_sexfasciatus_pres :  1766.09536267762"

## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  18202.001308115"

## [1] "cheilinus_undulatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilodipterus_quinquelineatus_pres :  5875.07184903698"

## [1] "fistularia_commersonii_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  4649.587633807"

## [1] "halichoeres_argus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_argus_pres :  3207.84149824231"

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"

## [1] "halichoeres_scapularis_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  11353.7071641828"

## [1] "lethrinus_harak_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_harak_pres :  21590.1047266921"

## [1] "lutjanus_decussatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  2631.14304401644"

## [1] "lutjanus_gibbus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  828.960374560578"

## [1] "lutjanus_monostigma_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  756.873067782343"

## [1] "mulloidichthys_flavolineatus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  4144.97648635936"

## [1] "parupeneus_barberinus_pres"
## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_virgatus_pres :  1117.30960167351"

## [1] "sphyraena_barracuda_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "stethojulis_trilineata_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  4433.32571347229"

## [1] "plectorhinchus_flavomaculatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_obsoletus_pres :  468.523840669406"

## [1] "lutjanus_ehrenbergii_pres"
## [1] "lutjanus_fulviflamma_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulviflamma_pres :  6523.85761004109"

## [1] "lutjanus_fulvus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  5514.63531514581"

## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"

## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC scarus_psittacus_pres :  2631.14304401644"

## [1] "epinephelus_merra_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  3496.19072535525"

## [1] "siganus_spinus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_spinus_pres :  15967.2947979898"

knitr::kable(glm_tab, escape=TRUE)

	species	coefficient	pvalue
2	abudefduf_sexfasciatus_pres	df.sample_data$distance_seagrass	0.0000000
3	abudefduf_sexfasciatus_pres	log(df.sample_data$size_seagrass)	0.0000000
4	abudefduf_sexfasciatus_pres	df.sample_data$distance_mangroves	0.0000000
5	abudefduf_sexfasciatus_pres	log(df.sample_data$size_mangroves)	0.0000000
6	abudefduf_sexfasciatus_pres	df.sample_data$mpanon-mpa	0.0000000
7	abudefduf_sexfasciatus_pres	df.sample_data$depth10m	0.0000000
8	abudefduf_sexfasciatus_pres	df.sample_data$northsouth	0.0000000
9	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
10	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
11	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
12	abudefduf_sexfasciatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
13	abudefduf_sexfasciatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
14	abudefduf_sexfasciatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
15	abudefduf_sexfasciatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
16	abudefduf_sexfasciatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
17	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
18	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
21	cheilinus_chlorourus_pres	df.sample_data$distance_seagrass	0.0000000
31	cheilinus_chlorourus_pres	log(df.sample_data$size_seagrass)	0.0000000
41	cheilinus_chlorourus_pres	df.sample_data$distance_mangroves	0.0000000
51	cheilinus_chlorourus_pres	log(df.sample_data$size_mangroves)	0.0000000
61	cheilinus_chlorourus_pres	df.sample_data$mpanon-mpa	0.0000000
71	cheilinus_chlorourus_pres	df.sample_data$depth10m	0.0000000
81	cheilinus_chlorourus_pres	df.sample_data$northsouth	0.0000000
91	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
101	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
111	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
121	cheilinus_chlorourus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
131	cheilinus_chlorourus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
141	cheilinus_chlorourus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
151	cheilinus_chlorourus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
161	cheilinus_chlorourus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
171	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
181	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
22	cheilodipterus_quinquelineatus_pres	df.sample_data$distance_seagrass	0.0000000
32	cheilodipterus_quinquelineatus_pres	log(df.sample_data$size_seagrass)	0.0000000
42	cheilodipterus_quinquelineatus_pres	df.sample_data$distance_mangroves	0.0000000
52	cheilodipterus_quinquelineatus_pres	log(df.sample_data$size_mangroves)	0.0000000
62	cheilodipterus_quinquelineatus_pres	df.sample_data$mpanon-mpa	0.0000000
72	cheilodipterus_quinquelineatus_pres	df.sample_data$depth10m	0.0000000
82	cheilodipterus_quinquelineatus_pres	df.sample_data$northsouth	0.0000000
92	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
102	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
112	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
122	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
132	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
142	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
152	cheilodipterus_quinquelineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
162	cheilodipterus_quinquelineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
172	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
182	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
23	fistularia_commersonii_pres	df.sample_data$distance_seagrass	0.0000000
33	fistularia_commersonii_pres	log(df.sample_data$size_seagrass)	0.0000000
43	fistularia_commersonii_pres	df.sample_data$distance_mangroves	0.0000000
53	fistularia_commersonii_pres	log(df.sample_data$size_mangroves)	0.0000000
63	fistularia_commersonii_pres	df.sample_data$mpanon-mpa	0.0000000
73	fistularia_commersonii_pres	df.sample_data$depth10m	0.0000000
83	fistularia_commersonii_pres	df.sample_data$northsouth	0.0000000
93	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
103	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
113	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
123	fistularia_commersonii_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
133	fistularia_commersonii_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
143	fistularia_commersonii_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
153	fistularia_commersonii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
163	fistularia_commersonii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
173	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
183	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
24	halichoeres_argus_pres	df.sample_data$distance_seagrass	0.0000000
34	halichoeres_argus_pres	log(df.sample_data$size_seagrass)	0.0000000
44	halichoeres_argus_pres	df.sample_data$distance_mangroves	0.0000000
54	halichoeres_argus_pres	log(df.sample_data$size_mangroves)	0.0000000
64	halichoeres_argus_pres	df.sample_data$mpanon-mpa	0.0000000
74	halichoeres_argus_pres	df.sample_data$depth10m	0.0000000
84	halichoeres_argus_pres	df.sample_data$northsouth	0.0000000
94	halichoeres_argus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
104	halichoeres_argus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
114	halichoeres_argus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
124	halichoeres_argus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
134	halichoeres_argus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
144	halichoeres_argus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
154	halichoeres_argus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
164	halichoeres_argus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
174	halichoeres_argus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
184	halichoeres_argus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
86	halichoeres_hortulanus_pres	df.sample_data$depth10m	0.0280276
87	halichoeres_hortulanus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0238522
88	halichoeres_hortulanus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0275280
89	halichoeres_hortulanus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0411101
90	halichoeres_hortulanus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0394271
25	halichoeres_scapularis_pres	df.sample_data$distance_seagrass	0.0000000
35	halichoeres_scapularis_pres	log(df.sample_data$size_seagrass)	0.0000000
45	halichoeres_scapularis_pres	df.sample_data$distance_mangroves	0.0000000
55	halichoeres_scapularis_pres	log(df.sample_data$size_mangroves)	0.0000000
65	halichoeres_scapularis_pres	df.sample_data$mpanon-mpa	0.0000000
75	halichoeres_scapularis_pres	df.sample_data$depth10m	0.0000000
85	halichoeres_scapularis_pres	df.sample_data$northsouth	0.0000000
95	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
105	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
115	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
125	halichoeres_scapularis_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
135	halichoeres_scapularis_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
145	halichoeres_scapularis_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
155	halichoeres_scapularis_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
165	halichoeres_scapularis_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
175	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
185	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
26	lethrinus_harak_pres	df.sample_data$distance_seagrass	0.0000000
36	lethrinus_harak_pres	log(df.sample_data$size_seagrass)	0.0000000
46	lethrinus_harak_pres	df.sample_data$distance_mangroves	0.0000000
56	lethrinus_harak_pres	log(df.sample_data$size_mangroves)	0.0000000
66	lethrinus_harak_pres	df.sample_data$mpanon-mpa	0.0000000
76	lethrinus_harak_pres	df.sample_data$depth10m	0.0000000
810	lethrinus_harak_pres	df.sample_data$northsouth	0.0000000
96	lethrinus_harak_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
106	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
116	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
126	lethrinus_harak_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
136	lethrinus_harak_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
146	lethrinus_harak_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
156	lethrinus_harak_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
166	lethrinus_harak_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
176	lethrinus_harak_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
186	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
27	lutjanus_decussatus_pres	df.sample_data$distance_seagrass	0.0000000
37	lutjanus_decussatus_pres	log(df.sample_data$size_seagrass)	0.0000000
47	lutjanus_decussatus_pres	df.sample_data$distance_mangroves	0.0000000
57	lutjanus_decussatus_pres	log(df.sample_data$size_mangroves)	0.0000000
67	lutjanus_decussatus_pres	df.sample_data$mpanon-mpa	0.0000000
77	lutjanus_decussatus_pres	df.sample_data$depth10m	0.0000000
811	lutjanus_decussatus_pres	df.sample_data$northsouth	0.0000000
97	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
107	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
117	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
127	lutjanus_decussatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
137	lutjanus_decussatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
147	lutjanus_decussatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
157	lutjanus_decussatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
167	lutjanus_decussatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
177	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
187	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
28	lutjanus_gibbus_pres	df.sample_data$distance_seagrass	0.0000000
38	lutjanus_gibbus_pres	log(df.sample_data$size_seagrass)	0.0000000
48	lutjanus_gibbus_pres	df.sample_data$distance_mangroves	0.0000000
58	lutjanus_gibbus_pres	log(df.sample_data$size_mangroves)	0.0000000
68	lutjanus_gibbus_pres	df.sample_data$mpanon-mpa	0.0000000
78	lutjanus_gibbus_pres	df.sample_data$depth10m	0.0000000
812	lutjanus_gibbus_pres	df.sample_data$northsouth	0.0000000
98	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
108	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
118	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
128	lutjanus_gibbus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
138	lutjanus_gibbus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
148	lutjanus_gibbus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
158	lutjanus_gibbus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
168	lutjanus_gibbus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
178	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
188	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
29	lutjanus_monostigma_pres	df.sample_data$distance_seagrass	0.0000000
39	lutjanus_monostigma_pres	log(df.sample_data$size_seagrass)	0.0000000
49	lutjanus_monostigma_pres	df.sample_data$distance_mangroves	0.0000000
59	lutjanus_monostigma_pres	log(df.sample_data$size_mangroves)	0.0000000
69	lutjanus_monostigma_pres	df.sample_data$mpanon-mpa	0.0000000
79	lutjanus_monostigma_pres	df.sample_data$depth10m	0.0000000
813	lutjanus_monostigma_pres	df.sample_data$northsouth	0.0000000
99	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
109	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
119	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
129	lutjanus_monostigma_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
139	lutjanus_monostigma_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
149	lutjanus_monostigma_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
159	lutjanus_monostigma_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
169	lutjanus_monostigma_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
179	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
189	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
210	mulloidichthys_flavolineatus_pres	df.sample_data$distance_seagrass	0.0000000
310	mulloidichthys_flavolineatus_pres	log(df.sample_data$size_seagrass)	0.0000000
410	mulloidichthys_flavolineatus_pres	df.sample_data$distance_mangroves	0.0000000
510	mulloidichthys_flavolineatus_pres	log(df.sample_data$size_mangroves)	0.0000000
610	mulloidichthys_flavolineatus_pres	df.sample_data$mpanon-mpa	0.0000000
710	mulloidichthys_flavolineatus_pres	df.sample_data$depth10m	0.0000000
814	mulloidichthys_flavolineatus_pres	df.sample_data$northsouth	0.0000000
910	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1010	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1110	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1210	mulloidichthys_flavolineatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1310	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1410	mulloidichthys_flavolineatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1510	mulloidichthys_flavolineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1610	mulloidichthys_flavolineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1710	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1810	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
211	siganus_virgatus_pres	df.sample_data$distance_seagrass	0.0000000
311	siganus_virgatus_pres	log(df.sample_data$size_seagrass)	0.0000000
411	siganus_virgatus_pres	df.sample_data$distance_mangroves	0.0000000
511	siganus_virgatus_pres	log(df.sample_data$size_mangroves)	0.0000000
611	siganus_virgatus_pres	df.sample_data$mpanon-mpa	0.0000000
711	siganus_virgatus_pres	df.sample_data$depth10m	0.0000000
815	siganus_virgatus_pres	df.sample_data$northsouth	0.0000000
911	siganus_virgatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1011	siganus_virgatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1111	siganus_virgatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1211	siganus_virgatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1311	siganus_virgatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1411	siganus_virgatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1511	siganus_virgatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1611	siganus_virgatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1711	siganus_virgatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1811	siganus_virgatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
212	stethojulis_trilineata_pres	df.sample_data$distance_seagrass	0.0000000
312	stethojulis_trilineata_pres	log(df.sample_data$size_seagrass)	0.0000000
412	stethojulis_trilineata_pres	df.sample_data$distance_mangroves	0.0000000
512	stethojulis_trilineata_pres	log(df.sample_data$size_mangroves)	0.0000000
612	stethojulis_trilineata_pres	df.sample_data$mpanon-mpa	0.0000000
712	stethojulis_trilineata_pres	df.sample_data$depth10m	0.0000000
816	stethojulis_trilineata_pres	df.sample_data$northsouth	0.0000000
912	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1012	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1112	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1212	stethojulis_trilineata_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1312	stethojulis_trilineata_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1412	stethojulis_trilineata_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1512	stethojulis_trilineata_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1612	stethojulis_trilineata_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1712	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1812	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
213	lethrinus_obsoletus_pres	df.sample_data$distance_seagrass	0.0000000
313	lethrinus_obsoletus_pres	log(df.sample_data$size_seagrass)	0.0000000
413	lethrinus_obsoletus_pres	df.sample_data$distance_mangroves	0.0000000
513	lethrinus_obsoletus_pres	log(df.sample_data$size_mangroves)	0.0000000
613	lethrinus_obsoletus_pres	df.sample_data$mpanon-mpa	0.0000000
713	lethrinus_obsoletus_pres	df.sample_data$depth10m	0.0000000
817	lethrinus_obsoletus_pres	df.sample_data$northsouth	0.0000000
913	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1013	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1113	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1213	lethrinus_obsoletus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1313	lethrinus_obsoletus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1413	lethrinus_obsoletus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1513	lethrinus_obsoletus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1613	lethrinus_obsoletus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1713	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1813	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
214	lutjanus_fulviflamma_pres	df.sample_data$distance_seagrass	0.0000000
314	lutjanus_fulviflamma_pres	log(df.sample_data$size_seagrass)	0.0000000
414	lutjanus_fulviflamma_pres	df.sample_data$distance_mangroves	0.0000000
514	lutjanus_fulviflamma_pres	log(df.sample_data$size_mangroves)	0.0000000
614	lutjanus_fulviflamma_pres	df.sample_data$mpanon-mpa	0.0000000
714	lutjanus_fulviflamma_pres	df.sample_data$depth10m	0.0000000
818	lutjanus_fulviflamma_pres	df.sample_data$northsouth	0.0000000
914	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1014	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1114	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1214	lutjanus_fulviflamma_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1314	lutjanus_fulviflamma_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1414	lutjanus_fulviflamma_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1514	lutjanus_fulviflamma_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1614	lutjanus_fulviflamma_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1714	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1814	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
215	lutjanus_fulvus_pres	df.sample_data$distance_seagrass	0.0000000
315	lutjanus_fulvus_pres	log(df.sample_data$size_seagrass)	0.0000000
415	lutjanus_fulvus_pres	df.sample_data$distance_mangroves	0.0000000
515	lutjanus_fulvus_pres	log(df.sample_data$size_mangroves)	0.0000000
615	lutjanus_fulvus_pres	df.sample_data$mpanon-mpa	0.0000000
715	lutjanus_fulvus_pres	df.sample_data$depth10m	0.0000000
819	lutjanus_fulvus_pres	df.sample_data$northsouth	0.0000000
915	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1015	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1115	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1215	lutjanus_fulvus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1315	lutjanus_fulvus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1415	lutjanus_fulvus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1515	lutjanus_fulvus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1615	lutjanus_fulvus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1715	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1815	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
278	scolopsis_bilineata_pres	log(df.sample_data$size_seagrass)	0.0379828
216	scarus_psittacus_pres	df.sample_data$distance_seagrass	0.0000000
316	scarus_psittacus_pres	log(df.sample_data$size_seagrass)	0.0000000
416	scarus_psittacus_pres	df.sample_data$distance_mangroves	0.0000000
516	scarus_psittacus_pres	log(df.sample_data$size_mangroves)	0.0000000
616	scarus_psittacus_pres	df.sample_data$mpanon-mpa	0.0000000
716	scarus_psittacus_pres	df.sample_data$depth10m	0.0000000
820	scarus_psittacus_pres	df.sample_data$northsouth	0.0000000
916	scarus_psittacus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1016	scarus_psittacus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1116	scarus_psittacus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1216	scarus_psittacus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1316	scarus_psittacus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1416	scarus_psittacus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1516	scarus_psittacus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1616	scarus_psittacus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1716	scarus_psittacus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1816	scarus_psittacus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
217	epinephelus_merra_pres	df.sample_data$distance_seagrass	0.0000000
317	epinephelus_merra_pres	log(df.sample_data$size_seagrass)	0.0000000
417	epinephelus_merra_pres	df.sample_data$distance_mangroves	0.0000000
517	epinephelus_merra_pres	log(df.sample_data$size_mangroves)	0.0000000
617	epinephelus_merra_pres	df.sample_data$mpanon-mpa	0.0000000
717	epinephelus_merra_pres	df.sample_data$depth10m	0.0000000
821	epinephelus_merra_pres	df.sample_data$northsouth	0.0000000
917	epinephelus_merra_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1017	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1117	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1217	epinephelus_merra_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1317	epinephelus_merra_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1417	epinephelus_merra_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1517	epinephelus_merra_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1617	epinephelus_merra_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1717	epinephelus_merra_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1817	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
218	siganus_spinus_pres	df.sample_data$distance_seagrass	0.0000000
318	siganus_spinus_pres	log(df.sample_data$size_seagrass)	0.0000000
418	siganus_spinus_pres	df.sample_data$distance_mangroves	0.0000000
518	siganus_spinus_pres	log(df.sample_data$size_mangroves)	0.0000000
618	siganus_spinus_pres	df.sample_data$mpanon-mpa	0.0000000
718	siganus_spinus_pres	df.sample_data$depth10m	0.0000000
822	siganus_spinus_pres	df.sample_data$northsouth	0.0000000
918	siganus_spinus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1018	siganus_spinus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves	0.0000000
1118	siganus_spinus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1218	siganus_spinus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1318	siganus_spinus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1418	siganus_spinus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1518	siganus_spinus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1618	siganus_spinus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1718	siganus_spinus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1818	siganus_spinus_pres	df.sample_data\(distance_seagrass:df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000

log(distance_mangroves) & log(size_seagrass)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * (log(df.sample_data$size_seagrass)) * log(df.sample_data$distance_mangroves) * df.sample_data$size_mangroves * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}

## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC abudefduf_sexfasciatus_pres :  1766.09536267762"

## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  5947.15915581521"

## [1] "cheilinus_undulatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilodipterus_quinquelineatus_pres :  10344.4848692875"

## [1] "fistularia_commersonii_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  3928.71456602465"

## [1] "halichoeres_argus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_argus_pres :  6956.38145071049"

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"

## [1] "halichoeres_scapularis_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  15246.4217302074"

## [1] "lethrinus_harak_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_harak_pres :  252.261920334703"

## [1] "lutjanus_decussatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  4072.88917958112"

## [1] "lutjanus_gibbus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  828.960374560578"

## [1] "lutjanus_monostigma_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  12002.4929251869"

## [1] "mulloidichthys_flavolineatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  1694.00805589939"

## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres :  448.158014854641"

## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_virgatus_pres :  13372.1517539733"

## [1] "sphyraena_barracuda_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "stethojulis_trilineata_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  1694.00805589939"

## [1] "plectorhinchus_flavomaculatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_obsoletus_pres :  468.523840669406"

## [1] "lutjanus_ehrenbergii_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_ehrenbergii_pres :  396.436533891172"

## [1] "lutjanus_fulviflamma_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "lutjanus_fulvus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  11137.4452438481"

## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"

## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC scarus_psittacus_pres :  1766.09536267762"

## [1] "epinephelus_merra_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  3640.36533891172"

## [1] "siganus_spinus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_spinus_pres :  15967.2947979898"

knitr::kable(glm_tab, escape=TRUE)

	species	coefficient	pvalue
2	abudefduf_sexfasciatus_pres	df.sample_data$distance_seagrass	0.0000000
3	abudefduf_sexfasciatus_pres	log(df.sample_data$size_seagrass)	0.0000000
4	abudefduf_sexfasciatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
5	abudefduf_sexfasciatus_pres	df.sample_data$size_mangroves	0.0000000
6	abudefduf_sexfasciatus_pres	df.sample_data$mpanon-mpa	0.0000000
7	abudefduf_sexfasciatus_pres	df.sample_data$depth10m	0.0000000
8	abudefduf_sexfasciatus_pres	df.sample_data$northsouth	0.0000000
9	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
10	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
11	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
12	abudefduf_sexfasciatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
13	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
14	abudefduf_sexfasciatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
15	abudefduf_sexfasciatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
16	abudefduf_sexfasciatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
17	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
18	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
21	cheilinus_chlorourus_pres	df.sample_data$distance_seagrass	0.0000000
31	cheilinus_chlorourus_pres	log(df.sample_data$size_seagrass)	0.0000000
41	cheilinus_chlorourus_pres	log(df.sample_data$distance_mangroves)	0.0000000
51	cheilinus_chlorourus_pres	df.sample_data$size_mangroves	0.0000000
61	cheilinus_chlorourus_pres	df.sample_data$mpanon-mpa	0.0000000
71	cheilinus_chlorourus_pres	df.sample_data$depth10m	0.0000000
81	cheilinus_chlorourus_pres	df.sample_data$northsouth	0.0000000
91	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
101	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
111	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
121	cheilinus_chlorourus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
131	cheilinus_chlorourus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
141	cheilinus_chlorourus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
151	cheilinus_chlorourus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
161	cheilinus_chlorourus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
171	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
181	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
22	cheilodipterus_quinquelineatus_pres	df.sample_data$distance_seagrass	0.0000000
32	cheilodipterus_quinquelineatus_pres	log(df.sample_data$size_seagrass)	0.0000000
42	cheilodipterus_quinquelineatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
52	cheilodipterus_quinquelineatus_pres	df.sample_data$size_mangroves	0.0000000
62	cheilodipterus_quinquelineatus_pres	df.sample_data$mpanon-mpa	0.0000000
72	cheilodipterus_quinquelineatus_pres	df.sample_data$depth10m	0.0000000
82	cheilodipterus_quinquelineatus_pres	df.sample_data$northsouth	0.0000000
92	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
102	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
112	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
122	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
132	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
142	cheilodipterus_quinquelineatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
152	cheilodipterus_quinquelineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
162	cheilodipterus_quinquelineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
172	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
182	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
23	fistularia_commersonii_pres	df.sample_data$distance_seagrass	0.0000000
33	fistularia_commersonii_pres	log(df.sample_data$size_seagrass)	0.0000000
43	fistularia_commersonii_pres	log(df.sample_data$distance_mangroves)	0.0000000
53	fistularia_commersonii_pres	df.sample_data$size_mangroves	0.0000000
63	fistularia_commersonii_pres	df.sample_data$mpanon-mpa	0.0000000
73	fistularia_commersonii_pres	df.sample_data$depth10m	0.0000000
83	fistularia_commersonii_pres	df.sample_data$northsouth	0.0000000
93	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
103	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
113	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
123	fistularia_commersonii_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
133	fistularia_commersonii_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
143	fistularia_commersonii_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
153	fistularia_commersonii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
163	fistularia_commersonii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
173	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
183	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
24	halichoeres_argus_pres	df.sample_data$distance_seagrass	0.0000000
34	halichoeres_argus_pres	log(df.sample_data$size_seagrass)	0.0000000
44	halichoeres_argus_pres	log(df.sample_data$distance_mangroves)	0.0000000
54	halichoeres_argus_pres	df.sample_data$size_mangroves	0.0000000
64	halichoeres_argus_pres	df.sample_data$mpanon-mpa	0.0000000
74	halichoeres_argus_pres	df.sample_data$depth10m	0.0000000
84	halichoeres_argus_pres	df.sample_data$northsouth	0.0000000
94	halichoeres_argus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
104	halichoeres_argus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
114	halichoeres_argus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
124	halichoeres_argus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
134	halichoeres_argus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
144	halichoeres_argus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
154	halichoeres_argus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
164	halichoeres_argus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
174	halichoeres_argus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
184	halichoeres_argus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
86	halichoeres_hortulanus_pres	df.sample_data$depth10m	0.0000032
87	halichoeres_hortulanus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000033
88	halichoeres_hortulanus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000086
89	halichoeres_hortulanus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000112
90	halichoeres_hortulanus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000301
911	halichoeres_hortulanus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0001844
921	halichoeres_hortulanus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000078
931	halichoeres_hortulanus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000031
25	halichoeres_scapularis_pres	df.sample_data$distance_seagrass	0.0000000
35	halichoeres_scapularis_pres	log(df.sample_data$size_seagrass)	0.0000000
45	halichoeres_scapularis_pres	log(df.sample_data$distance_mangroves)	0.0000000
55	halichoeres_scapularis_pres	df.sample_data$size_mangroves	0.0000000
65	halichoeres_scapularis_pres	df.sample_data$mpanon-mpa	0.0000000
75	halichoeres_scapularis_pres	df.sample_data$depth10m	0.0000000
85	halichoeres_scapularis_pres	df.sample_data$northsouth	0.0000000
95	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
105	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
115	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
125	halichoeres_scapularis_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
135	halichoeres_scapularis_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
145	halichoeres_scapularis_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
155	halichoeres_scapularis_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
165	halichoeres_scapularis_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
175	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
185	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
26	lethrinus_harak_pres	df.sample_data$distance_seagrass	0.0000000
36	lethrinus_harak_pres	log(df.sample_data$size_seagrass)	0.0000000
46	lethrinus_harak_pres	log(df.sample_data$distance_mangroves)	0.0000000
56	lethrinus_harak_pres	df.sample_data$size_mangroves	0.0000000
66	lethrinus_harak_pres	df.sample_data$mpanon-mpa	0.0000000
76	lethrinus_harak_pres	df.sample_data$depth10m	0.0000000
810	lethrinus_harak_pres	df.sample_data$northsouth	0.0000000
96	lethrinus_harak_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
106	lethrinus_harak_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
116	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
126	lethrinus_harak_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
136	lethrinus_harak_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
146	lethrinus_harak_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
156	lethrinus_harak_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
166	lethrinus_harak_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
176	lethrinus_harak_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
186	lethrinus_harak_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
27	lutjanus_decussatus_pres	df.sample_data$distance_seagrass	0.0000000
37	lutjanus_decussatus_pres	log(df.sample_data$size_seagrass)	0.0000000
47	lutjanus_decussatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
57	lutjanus_decussatus_pres	df.sample_data$size_mangroves	0.0000000
67	lutjanus_decussatus_pres	df.sample_data$mpanon-mpa	0.0000000
77	lutjanus_decussatus_pres	df.sample_data$depth10m	0.0000000
811	lutjanus_decussatus_pres	df.sample_data$northsouth	0.0000000
97	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
107	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
117	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
127	lutjanus_decussatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
137	lutjanus_decussatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
147	lutjanus_decussatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
157	lutjanus_decussatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
167	lutjanus_decussatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
177	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
187	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
28	lutjanus_gibbus_pres	df.sample_data$distance_seagrass	0.0000000
38	lutjanus_gibbus_pres	log(df.sample_data$size_seagrass)	0.0000000
48	lutjanus_gibbus_pres	log(df.sample_data$distance_mangroves)	0.0000000
58	lutjanus_gibbus_pres	df.sample_data$size_mangroves	0.0000000
68	lutjanus_gibbus_pres	df.sample_data$mpanon-mpa	0.0000000
78	lutjanus_gibbus_pres	df.sample_data$depth10m	0.0000000
812	lutjanus_gibbus_pres	df.sample_data$northsouth	0.0000000
98	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
108	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
118	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
128	lutjanus_gibbus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
138	lutjanus_gibbus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
148	lutjanus_gibbus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
158	lutjanus_gibbus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
168	lutjanus_gibbus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
178	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
188	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
29	lutjanus_monostigma_pres	df.sample_data$distance_seagrass	0.0000000
39	lutjanus_monostigma_pres	log(df.sample_data$size_seagrass)	0.0000000
49	lutjanus_monostigma_pres	log(df.sample_data$distance_mangroves)	0.0000000
59	lutjanus_monostigma_pres	df.sample_data$size_mangroves	0.0000000
69	lutjanus_monostigma_pres	df.sample_data$mpanon-mpa	0.0000000
79	lutjanus_monostigma_pres	df.sample_data$depth10m	0.0000000
813	lutjanus_monostigma_pres	df.sample_data$northsouth	0.0000000
99	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
109	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
119	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
129	lutjanus_monostigma_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
139	lutjanus_monostigma_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
149	lutjanus_monostigma_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
159	lutjanus_monostigma_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
169	lutjanus_monostigma_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
179	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
189	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
210	mulloidichthys_flavolineatus_pres	df.sample_data$distance_seagrass	0.0000000
310	mulloidichthys_flavolineatus_pres	log(df.sample_data$size_seagrass)	0.0000000
410	mulloidichthys_flavolineatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
510	mulloidichthys_flavolineatus_pres	df.sample_data$size_mangroves	0.0000000
610	mulloidichthys_flavolineatus_pres	df.sample_data$mpanon-mpa	0.0000000
710	mulloidichthys_flavolineatus_pres	df.sample_data$depth10m	0.0000000
814	mulloidichthys_flavolineatus_pres	df.sample_data$northsouth	0.0000000
910	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1010	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1110	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1210	mulloidichthys_flavolineatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1310	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1410	mulloidichthys_flavolineatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1510	mulloidichthys_flavolineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1610	mulloidichthys_flavolineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1710	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1810	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
196	parupeneus_barberinus_pres	df.sample_data$depth10m	0.0489194
211	siganus_virgatus_pres	df.sample_data$distance_seagrass	0.0000000
311	siganus_virgatus_pres	log(df.sample_data$size_seagrass)	0.0000000
411	siganus_virgatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
511	siganus_virgatus_pres	df.sample_data$size_mangroves	0.0000000
611	siganus_virgatus_pres	df.sample_data$mpanon-mpa	0.0000000
711	siganus_virgatus_pres	df.sample_data$depth10m	0.0000000
815	siganus_virgatus_pres	df.sample_data$northsouth	0.0000000
912	siganus_virgatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1011	siganus_virgatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1111	siganus_virgatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1211	siganus_virgatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1311	siganus_virgatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1411	siganus_virgatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1511	siganus_virgatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1611	siganus_virgatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1711	siganus_virgatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1811	siganus_virgatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
212	stethojulis_trilineata_pres	df.sample_data$distance_seagrass	0.0000000
312	stethojulis_trilineata_pres	log(df.sample_data$size_seagrass)	0.0000000
412	stethojulis_trilineata_pres	log(df.sample_data$distance_mangroves)	0.0000000
512	stethojulis_trilineata_pres	df.sample_data$size_mangroves	0.0000000
612	stethojulis_trilineata_pres	df.sample_data$mpanon-mpa	0.0000000
712	stethojulis_trilineata_pres	df.sample_data$depth10m	0.0000000
816	stethojulis_trilineata_pres	df.sample_data$northsouth	0.0000000
913	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1012	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1112	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1212	stethojulis_trilineata_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1312	stethojulis_trilineata_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1412	stethojulis_trilineata_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1512	stethojulis_trilineata_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1612	stethojulis_trilineata_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1712	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1812	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
213	lethrinus_obsoletus_pres	df.sample_data$distance_seagrass	0.0000000
313	lethrinus_obsoletus_pres	log(df.sample_data$size_seagrass)	0.0000000
413	lethrinus_obsoletus_pres	log(df.sample_data$distance_mangroves)	0.0000000
513	lethrinus_obsoletus_pres	df.sample_data$size_mangroves	0.0000000
613	lethrinus_obsoletus_pres	df.sample_data$mpanon-mpa	0.0000000
713	lethrinus_obsoletus_pres	df.sample_data$depth10m	0.0000000
817	lethrinus_obsoletus_pres	df.sample_data$northsouth	0.0000000
914	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1013	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1113	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1213	lethrinus_obsoletus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1313	lethrinus_obsoletus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1413	lethrinus_obsoletus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1513	lethrinus_obsoletus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1613	lethrinus_obsoletus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1713	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1813	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
214	lutjanus_ehrenbergii_pres	df.sample_data$distance_seagrass	0.0000000
314	lutjanus_ehrenbergii_pres	log(df.sample_data$size_seagrass)	0.0000000
414	lutjanus_ehrenbergii_pres	log(df.sample_data$distance_mangroves)	0.0000000
514	lutjanus_ehrenbergii_pres	df.sample_data$size_mangroves	0.0000000
614	lutjanus_ehrenbergii_pres	df.sample_data$mpanon-mpa	0.0000000
714	lutjanus_ehrenbergii_pres	df.sample_data$depth10m	0.0000000
818	lutjanus_ehrenbergii_pres	df.sample_data$northsouth	0.0000000
915	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1014	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1114	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1214	lutjanus_ehrenbergii_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1314	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1414	lutjanus_ehrenbergii_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1514	lutjanus_ehrenbergii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1614	lutjanus_ehrenbergii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1714	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1814	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
215	lutjanus_fulvus_pres	df.sample_data$distance_seagrass	0.0000000
315	lutjanus_fulvus_pres	log(df.sample_data$size_seagrass)	0.0000000
415	lutjanus_fulvus_pres	log(df.sample_data$distance_mangroves)	0.0000000
515	lutjanus_fulvus_pres	df.sample_data$size_mangroves	0.0000000
615	lutjanus_fulvus_pres	df.sample_data$mpanon-mpa	0.0000000
715	lutjanus_fulvus_pres	df.sample_data$depth10m	0.0000000
819	lutjanus_fulvus_pres	df.sample_data$northsouth	0.0000000
916	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1015	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1115	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1215	lutjanus_fulvus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1315	lutjanus_fulvus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1415	lutjanus_fulvus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1515	lutjanus_fulvus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1615	lutjanus_fulvus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1715	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1815	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
282	scolopsis_bilineata_pres	df.sample_data$mpanon-mpa	0.0144027
283	scolopsis_bilineata_pres	df.sample_data$depth10m	0.0325427
284	scolopsis_bilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0292186
285	scolopsis_bilineata_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0471491
286	scolopsis_bilineata_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0282260
216	scarus_psittacus_pres	df.sample_data$distance_seagrass	0.0000000
316	scarus_psittacus_pres	log(df.sample_data$size_seagrass)	0.0000000
416	scarus_psittacus_pres	log(df.sample_data$distance_mangroves)	0.0000000
516	scarus_psittacus_pres	df.sample_data$size_mangroves	0.0000000
616	scarus_psittacus_pres	df.sample_data$mpanon-mpa	0.0000000
716	scarus_psittacus_pres	df.sample_data$depth10m	0.0000000
820	scarus_psittacus_pres	df.sample_data$northsouth	0.0000000
917	scarus_psittacus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1016	scarus_psittacus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1116	scarus_psittacus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1216	scarus_psittacus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1316	scarus_psittacus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1416	scarus_psittacus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1516	scarus_psittacus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1616	scarus_psittacus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1716	scarus_psittacus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1816	scarus_psittacus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
217	epinephelus_merra_pres	df.sample_data$distance_seagrass	0.0000000
317	epinephelus_merra_pres	log(df.sample_data$size_seagrass)	0.0000000
417	epinephelus_merra_pres	log(df.sample_data$distance_mangroves)	0.0000000
517	epinephelus_merra_pres	df.sample_data$size_mangroves	0.0000000
617	epinephelus_merra_pres	df.sample_data$mpanon-mpa	0.0000000
717	epinephelus_merra_pres	df.sample_data$depth10m	0.0000000
821	epinephelus_merra_pres	df.sample_data$northsouth	0.0000000
918	epinephelus_merra_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1017	epinephelus_merra_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1117	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1217	epinephelus_merra_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1317	epinephelus_merra_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1417	epinephelus_merra_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1517	epinephelus_merra_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1617	epinephelus_merra_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1717	epinephelus_merra_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1817	epinephelus_merra_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
218	siganus_spinus_pres	df.sample_data$distance_seagrass	0.0000000
318	siganus_spinus_pres	log(df.sample_data$size_seagrass)	0.0000000
418	siganus_spinus_pres	log(df.sample_data$distance_mangroves)	0.0000000
518	siganus_spinus_pres	df.sample_data$size_mangroves	0.0000000
618	siganus_spinus_pres	df.sample_data$mpanon-mpa	0.0000000
718	siganus_spinus_pres	df.sample_data$depth10m	0.0000000
822	siganus_spinus_pres	df.sample_data$northsouth	0.0000000
919	siganus_spinus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1018	siganus_spinus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1118	siganus_spinus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1218	siganus_spinus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1318	siganus_spinus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1418	siganus_spinus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1518	siganus_spinus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1618	siganus_spinus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1718	siganus_spinus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1818	siganus_spinus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000

log(size_mangroves) & log(distance_seagrass)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ log(df.sample_data$distance_seagrass) * df.sample_data$size_seagrass * df.sample_data$distance_mangroves * log(df.sample_data$size_mangroves) * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}

## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC abudefduf_sexfasciatus_pres :  1766.09536267762"

## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  15606.8582640986"

## [1] "cheilinus_undulatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "AIC cheilodipterus_quinquelineatus_pres :  370.078854988278"

## [1] "fistularia_commersonii_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  12290.8421522998"

## [1] "halichoeres_argus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"

## [1] "halichoeres_scapularis_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  4289.15109991582"

## [1] "lethrinus_harak_pres"
## [1] "lutjanus_decussatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  5802.98454225875"

## [1] "lutjanus_gibbus_pres"
## [1] "lutjanus_monostigma_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  13588.413674308"

## [1] "mulloidichthys_flavolineatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  4577.50032702876"

## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres :  448.158014854641"

## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "stethojulis_trilineata_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  1694.00805589939"

## [1] "plectorhinchus_flavomaculatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"
## [1] "lutjanus_ehrenbergii_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_ehrenbergii_pres :  396.436533891172"

## [1] "lutjanus_fulviflamma_pres"
## [1] "lutjanus_fulvus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  8398.12758627518"

## [1] "parupeneus_barberinoides_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC parupeneus_barberinoides_pres :  3928.71456602465"

## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"

## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## [1] "epinephelus_merra_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  13155.8898336386"

## [1] "siganus_spinus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_spinus_pres :  396.436533891172"

knitr::kable(glm_tab, escape=TRUE)

	species	coefficient	pvalue
2	abudefduf_sexfasciatus_pres	log(df.sample_data$distance_seagrass)	0.0000000
3	abudefduf_sexfasciatus_pres	df.sample_data$size_seagrass	0.0000000
4	abudefduf_sexfasciatus_pres	df.sample_data$distance_mangroves	0.0000000
5	abudefduf_sexfasciatus_pres	log(df.sample_data$size_mangroves)	0.0000000
6	abudefduf_sexfasciatus_pres	df.sample_data$mpanon-mpa	0.0000000
7	abudefduf_sexfasciatus_pres	df.sample_data$depth10m	0.0000000
8	abudefduf_sexfasciatus_pres	df.sample_data$northsouth	0.0000000
9	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
10	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
11	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
12	abudefduf_sexfasciatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
13	abudefduf_sexfasciatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
14	abudefduf_sexfasciatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
15	abudefduf_sexfasciatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
16	abudefduf_sexfasciatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
17	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
18	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
21	cheilinus_chlorourus_pres	log(df.sample_data$distance_seagrass)	0.0000000
31	cheilinus_chlorourus_pres	df.sample_data$size_seagrass	0.0000000
41	cheilinus_chlorourus_pres	df.sample_data$distance_mangroves	0.0000000
51	cheilinus_chlorourus_pres	log(df.sample_data$size_mangroves)	0.0000000
61	cheilinus_chlorourus_pres	df.sample_data$mpanon-mpa	0.0000000
71	cheilinus_chlorourus_pres	df.sample_data$depth10m	0.0000000
81	cheilinus_chlorourus_pres	df.sample_data$northsouth	0.0000000
91	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
101	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
111	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
121	cheilinus_chlorourus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
131	cheilinus_chlorourus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
141	cheilinus_chlorourus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
151	cheilinus_chlorourus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
161	cheilinus_chlorourus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
171	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
181	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
35	cheilodipterus_quinquelineatus_pres	df.sample_data$size_seagrass	0.0237339
36	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0360598
22	fistularia_commersonii_pres	log(df.sample_data$distance_seagrass)	0.0000000
32	fistularia_commersonii_pres	df.sample_data$size_seagrass	0.0000000
42	fistularia_commersonii_pres	df.sample_data$distance_mangroves	0.0000000
52	fistularia_commersonii_pres	log(df.sample_data$size_mangroves)	0.0000000
62	fistularia_commersonii_pres	df.sample_data$mpanon-mpa	0.0000000
72	fistularia_commersonii_pres	df.sample_data$depth10m	0.0000000
82	fistularia_commersonii_pres	df.sample_data$northsouth	0.0000000
92	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
102	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
112	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
122	fistularia_commersonii_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
132	fistularia_commersonii_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
142	fistularia_commersonii_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
152	fistularia_commersonii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
162	fistularia_commersonii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
172	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
182	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
54	halichoeres_hortulanus_pres	df.sample_data$size_seagrass	0.0220980
55	halichoeres_hortulanus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0392478
56	halichoeres_hortulanus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0489772
57	halichoeres_hortulanus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0172840
23	halichoeres_scapularis_pres	log(df.sample_data$distance_seagrass)	0.0000000
33	halichoeres_scapularis_pres	df.sample_data$size_seagrass	0.0000000
43	halichoeres_scapularis_pres	df.sample_data$distance_mangroves	0.0000000
53	halichoeres_scapularis_pres	log(df.sample_data$size_mangroves)	0.0000000
63	halichoeres_scapularis_pres	df.sample_data$mpanon-mpa	0.0000000
73	halichoeres_scapularis_pres	df.sample_data$depth10m	0.0000000
83	halichoeres_scapularis_pres	df.sample_data$northsouth	0.0000000
93	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
103	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
113	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
123	halichoeres_scapularis_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
133	halichoeres_scapularis_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
143	halichoeres_scapularis_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
153	halichoeres_scapularis_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
163	halichoeres_scapularis_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
173	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
183	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
24	lutjanus_decussatus_pres	log(df.sample_data$distance_seagrass)	0.0000000
34	lutjanus_decussatus_pres	df.sample_data$size_seagrass	0.0000000
44	lutjanus_decussatus_pres	df.sample_data$distance_mangroves	0.0000000
58	lutjanus_decussatus_pres	log(df.sample_data$size_mangroves)	0.0000000
64	lutjanus_decussatus_pres	df.sample_data$mpanon-mpa	0.0000000
74	lutjanus_decussatus_pres	df.sample_data$depth10m	0.0000000
84	lutjanus_decussatus_pres	df.sample_data$northsouth	0.0000000
94	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
104	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
114	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
124	lutjanus_decussatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
134	lutjanus_decussatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
144	lutjanus_decussatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
154	lutjanus_decussatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
164	lutjanus_decussatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
174	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
184	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
25	lutjanus_monostigma_pres	log(df.sample_data$distance_seagrass)	0.0000000
37	lutjanus_monostigma_pres	df.sample_data$size_seagrass	0.0000000
45	lutjanus_monostigma_pres	df.sample_data$distance_mangroves	0.0000000
59	lutjanus_monostigma_pres	log(df.sample_data$size_mangroves)	0.0000000
65	lutjanus_monostigma_pres	df.sample_data$mpanon-mpa	0.0000000
75	lutjanus_monostigma_pres	df.sample_data$depth10m	0.0000000
85	lutjanus_monostigma_pres	df.sample_data$northsouth	0.0000000
95	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
105	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
115	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
125	lutjanus_monostigma_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
135	lutjanus_monostigma_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
145	lutjanus_monostigma_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
155	lutjanus_monostigma_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
165	lutjanus_monostigma_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
175	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
185	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
26	mulloidichthys_flavolineatus_pres	log(df.sample_data$distance_seagrass)	0.0000000
38	mulloidichthys_flavolineatus_pres	df.sample_data$size_seagrass	0.0000000
46	mulloidichthys_flavolineatus_pres	df.sample_data$distance_mangroves	0.0000000
510	mulloidichthys_flavolineatus_pres	log(df.sample_data$size_mangroves)	0.0000000
66	mulloidichthys_flavolineatus_pres	df.sample_data$mpanon-mpa	0.0000000
76	mulloidichthys_flavolineatus_pres	df.sample_data$depth10m	0.0000000
86	mulloidichthys_flavolineatus_pres	df.sample_data$northsouth	0.0000000
96	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
106	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
116	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
126	mulloidichthys_flavolineatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
136	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
146	mulloidichthys_flavolineatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
156	mulloidichthys_flavolineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
166	mulloidichthys_flavolineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
176	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
186	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
1261	parupeneus_barberinus_pres	log(df.sample_data$distance_seagrass)	0.0344377
127	parupeneus_barberinus_pres	df.sample_data$size_seagrass	0.0393532
128	parupeneus_barberinus_pres	df.sample_data$distance_mangroves	0.0201289
129	parupeneus_barberinus_pres	df.sample_data$mpanon-mpa	0.0266500
130	parupeneus_barberinus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0210273
27	stethojulis_trilineata_pres	log(df.sample_data$distance_seagrass)	0.0000000
39	stethojulis_trilineata_pres	df.sample_data$size_seagrass	0.0000000
47	stethojulis_trilineata_pres	df.sample_data$distance_mangroves	0.0000000
511	stethojulis_trilineata_pres	log(df.sample_data$size_mangroves)	0.0000000
67	stethojulis_trilineata_pres	df.sample_data$mpanon-mpa	0.0000000
77	stethojulis_trilineata_pres	df.sample_data$depth10m	0.0000000
87	stethojulis_trilineata_pres	df.sample_data$northsouth	0.0000000
97	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
107	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
117	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1210	stethojulis_trilineata_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
137	stethojulis_trilineata_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
147	stethojulis_trilineata_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
157	stethojulis_trilineata_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
167	stethojulis_trilineata_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
177	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
187	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
28	lutjanus_ehrenbergii_pres	log(df.sample_data$distance_seagrass)	0.0000000
310	lutjanus_ehrenbergii_pres	df.sample_data$size_seagrass	0.0000000
48	lutjanus_ehrenbergii_pres	df.sample_data$distance_mangroves	0.0000000
512	lutjanus_ehrenbergii_pres	log(df.sample_data$size_mangroves)	0.0000000
68	lutjanus_ehrenbergii_pres	df.sample_data$mpanon-mpa	0.0000000
78	lutjanus_ehrenbergii_pres	df.sample_data$depth10m	0.0000000
88	lutjanus_ehrenbergii_pres	df.sample_data$northsouth	0.0000000
98	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
108	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
118	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1211	lutjanus_ehrenbergii_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
138	lutjanus_ehrenbergii_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
148	lutjanus_ehrenbergii_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
158	lutjanus_ehrenbergii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
168	lutjanus_ehrenbergii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
178	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
188	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
29	lutjanus_fulvus_pres	log(df.sample_data$distance_seagrass)	0.0000000
311	lutjanus_fulvus_pres	df.sample_data$size_seagrass	0.0000000
49	lutjanus_fulvus_pres	df.sample_data$distance_mangroves	0.0000000
513	lutjanus_fulvus_pres	log(df.sample_data$size_mangroves)	0.0000000
69	lutjanus_fulvus_pres	df.sample_data$mpanon-mpa	0.0000000
79	lutjanus_fulvus_pres	df.sample_data$depth10m	0.0000000
89	lutjanus_fulvus_pres	df.sample_data$northsouth	0.0000000
99	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
109	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
119	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1212	lutjanus_fulvus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
139	lutjanus_fulvus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
149	lutjanus_fulvus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
159	lutjanus_fulvus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
169	lutjanus_fulvus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
179	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
189	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
210	parupeneus_barberinoides_pres	log(df.sample_data$distance_seagrass)	0.0000000
312	parupeneus_barberinoides_pres	df.sample_data$size_seagrass	0.0000000
410	parupeneus_barberinoides_pres	df.sample_data$distance_mangroves	0.0000000
514	parupeneus_barberinoides_pres	log(df.sample_data$size_mangroves)	0.0000000
610	parupeneus_barberinoides_pres	df.sample_data$mpanon-mpa	0.0000000
710	parupeneus_barberinoides_pres	df.sample_data$depth10m	0.0000000
810	parupeneus_barberinoides_pres	df.sample_data$northsouth	0.0000000
910	parupeneus_barberinoides_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
1010	parupeneus_barberinoides_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
1110	parupeneus_barberinoides_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1213	parupeneus_barberinoides_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1310	parupeneus_barberinoides_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1410	parupeneus_barberinoides_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1510	parupeneus_barberinoides_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1610	parupeneus_barberinoides_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1710	parupeneus_barberinoides_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1810	parupeneus_barberinoides_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
199	scolopsis_bilineata_pres	df.sample_data$size_seagrass	0.0157656
200	scolopsis_bilineata_pres	df.sample_data$northsouth	0.0338068
201	scolopsis_bilineata_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0322679
211	epinephelus_merra_pres	log(df.sample_data$distance_seagrass)	0.0000000
313	epinephelus_merra_pres	df.sample_data$size_seagrass	0.0000000
411	epinephelus_merra_pres	df.sample_data$distance_mangroves	0.0000000
515	epinephelus_merra_pres	log(df.sample_data$size_mangroves)	0.0000000
611	epinephelus_merra_pres	df.sample_data$mpanon-mpa	0.0000000
711	epinephelus_merra_pres	df.sample_data$depth10m	0.0000000
811	epinephelus_merra_pres	df.sample_data$northsouth	0.0000000
911	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
1011	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
1111	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1214	epinephelus_merra_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1311	epinephelus_merra_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1411	epinephelus_merra_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1511	epinephelus_merra_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1611	epinephelus_merra_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1711	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1811	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000
212	siganus_spinus_pres	log(df.sample_data$distance_seagrass)	0.0000000
314	siganus_spinus_pres	df.sample_data$size_seagrass	0.0000000
412	siganus_spinus_pres	df.sample_data$distance_mangroves	0.0000000
516	siganus_spinus_pres	log(df.sample_data$size_mangroves)	0.0000000
612	siganus_spinus_pres	df.sample_data$mpanon-mpa	0.0000000
712	siganus_spinus_pres	df.sample_data$depth10m	0.0000000
812	siganus_spinus_pres	df.sample_data$northsouth	0.0000000
912	siganus_spinus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
1012	siganus_spinus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves	0.0000000
1112	siganus_spinus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1215	siganus_spinus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1312	siganus_spinus_pres	df.sample_data\(distance_mangroves:df.sample_data\)depth10m	0.0000000
1412	siganus_spinus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1512	siganus_spinus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1612	siganus_spinus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1712	siganus_spinus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1812	siganus_spinus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)distance_mangroves:df.sample_data$depth10m	0.0000000

log(distance_mangroves) & log(distance_seagrass)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ log(df.sample_data$distance_seagrass) * df.sample_data$size_seagrass * log(df.sample_data$distance_mangroves) * df.sample_data$size_mangroves * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}

## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC abudefduf_sexfasciatus_pres :  1766.09536267762"

## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  16039.382104768"

## [1] "cheilinus_undulatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "fistularia_commersonii_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  7100.55606426696"

## [1] "halichoeres_argus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"

## [1] "halichoeres_scapularis_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  3279.92880502054"

## [1] "lethrinus_harak_pres"
## [1] "lutjanus_decussatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  11425.794470961"

## [1] "lutjanus_gibbus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  828.960374560578"

## [1] "lutjanus_monostigma_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  18346.1759216715"

## [1] "mulloidichthys_flavolineatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  1694.00805589939"

## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres :  448.158014854641"

## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "stethojulis_trilineata_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  3712.45264568995"

## [1] "plectorhinchus_flavomaculatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_microdon_pres :  254.275336589619"

## [1] "lethrinus_obsoletus_pres"
## [1] "lutjanus_ehrenbergii_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_ehrenbergii_pres :  22887.6762487003"

## [1] "lutjanus_fulviflamma_pres"
## [1] "lutjanus_fulvus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  3063.66688468584"

## [1] "parupeneus_barberinoides_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC parupeneus_barberinoides_pres :  7244.73067782343"

## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"

## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## [1] "epinephelus_merra_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  4361.23840669406"

## [1] "siganus_spinus_pres"

knitr::kable(glm_tab, escape=TRUE)

	species	coefficient	pvalue
2	abudefduf_sexfasciatus_pres	log(df.sample_data$distance_seagrass)	0.0000000
3	abudefduf_sexfasciatus_pres	df.sample_data$size_seagrass	0.0000000
4	abudefduf_sexfasciatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
5	abudefduf_sexfasciatus_pres	df.sample_data$size_mangroves	0.0000000
6	abudefduf_sexfasciatus_pres	df.sample_data$mpanon-mpa	0.0000000
7	abudefduf_sexfasciatus_pres	df.sample_data$depth10m	0.0000000
8	abudefduf_sexfasciatus_pres	df.sample_data$northsouth	0.0000000
9	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
10	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
11	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
12	abudefduf_sexfasciatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
13	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
14	abudefduf_sexfasciatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
15	abudefduf_sexfasciatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
16	abudefduf_sexfasciatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
17	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
18	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
21	cheilinus_chlorourus_pres	log(df.sample_data$distance_seagrass)	0.0000000
31	cheilinus_chlorourus_pres	df.sample_data$size_seagrass	0.0000000
41	cheilinus_chlorourus_pres	log(df.sample_data$distance_mangroves)	0.0000000
51	cheilinus_chlorourus_pres	df.sample_data$size_mangroves	0.0000000
61	cheilinus_chlorourus_pres	df.sample_data$mpanon-mpa	0.0000000
71	cheilinus_chlorourus_pres	df.sample_data$depth10m	0.0000000
81	cheilinus_chlorourus_pres	df.sample_data$northsouth	0.0000000
91	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
101	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
111	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
121	cheilinus_chlorourus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
131	cheilinus_chlorourus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
141	cheilinus_chlorourus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
151	cheilinus_chlorourus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
161	cheilinus_chlorourus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
171	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
181	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
22	fistularia_commersonii_pres	log(df.sample_data$distance_seagrass)	0.0000000
32	fistularia_commersonii_pres	df.sample_data$size_seagrass	0.0000000
42	fistularia_commersonii_pres	log(df.sample_data$distance_mangroves)	0.0000000
52	fistularia_commersonii_pres	df.sample_data$size_mangroves	0.0000000
62	fistularia_commersonii_pres	df.sample_data$mpanon-mpa	0.0000000
72	fistularia_commersonii_pres	df.sample_data$depth10m	0.0000000
82	fistularia_commersonii_pres	df.sample_data$northsouth	0.0000000
92	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
102	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
112	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
122	fistularia_commersonii_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
132	fistularia_commersonii_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
142	fistularia_commersonii_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
152	fistularia_commersonii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
162	fistularia_commersonii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
172	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
182	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
521	halichoeres_hortulanus_pres	df.sample_data$depth10m	0.0002649
53	halichoeres_hortulanus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0178228
54	halichoeres_hortulanus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000513
55	halichoeres_hortulanus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0004799
56	halichoeres_hortulanus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0029990
57	halichoeres_hortulanus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0040969
58	halichoeres_hortulanus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0003118
59	halichoeres_hortulanus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0401137
23	halichoeres_scapularis_pres	log(df.sample_data$distance_seagrass)	0.0000000
33	halichoeres_scapularis_pres	df.sample_data$size_seagrass	0.0000000
43	halichoeres_scapularis_pres	log(df.sample_data$distance_mangroves)	0.0000000
510	halichoeres_scapularis_pres	df.sample_data$size_mangroves	0.0000000
63	halichoeres_scapularis_pres	df.sample_data$mpanon-mpa	0.0000000
73	halichoeres_scapularis_pres	df.sample_data$depth10m	0.0000000
83	halichoeres_scapularis_pres	df.sample_data$northsouth	0.0000000
93	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
103	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
113	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
123	halichoeres_scapularis_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
133	halichoeres_scapularis_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
143	halichoeres_scapularis_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
153	halichoeres_scapularis_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
163	halichoeres_scapularis_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
173	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
183	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
24	lutjanus_decussatus_pres	log(df.sample_data$distance_seagrass)	0.0000000
34	lutjanus_decussatus_pres	df.sample_data$size_seagrass	0.0000000
44	lutjanus_decussatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
511	lutjanus_decussatus_pres	df.sample_data$size_mangroves	0.0000000
64	lutjanus_decussatus_pres	df.sample_data$mpanon-mpa	0.0000000
74	lutjanus_decussatus_pres	df.sample_data$depth10m	0.0000000
84	lutjanus_decussatus_pres	df.sample_data$northsouth	0.0000000
94	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
104	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
114	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
124	lutjanus_decussatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
134	lutjanus_decussatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
144	lutjanus_decussatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
154	lutjanus_decussatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
164	lutjanus_decussatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
174	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
184	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
25	lutjanus_gibbus_pres	log(df.sample_data$distance_seagrass)	0.0000000
35	lutjanus_gibbus_pres	df.sample_data$size_seagrass	0.0000000
45	lutjanus_gibbus_pres	log(df.sample_data$distance_mangroves)	0.0000000
512	lutjanus_gibbus_pres	df.sample_data$size_mangroves	0.0000000
65	lutjanus_gibbus_pres	df.sample_data$mpanon-mpa	0.0000000
75	lutjanus_gibbus_pres	df.sample_data$depth10m	0.0000000
85	lutjanus_gibbus_pres	df.sample_data$northsouth	0.0000000
95	lutjanus_gibbus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
105	lutjanus_gibbus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
115	lutjanus_gibbus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
125	lutjanus_gibbus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
135	lutjanus_gibbus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
145	lutjanus_gibbus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
155	lutjanus_gibbus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
165	lutjanus_gibbus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
175	lutjanus_gibbus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
185	lutjanus_gibbus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
26	lutjanus_monostigma_pres	log(df.sample_data$distance_seagrass)	0.0000000
36	lutjanus_monostigma_pres	df.sample_data$size_seagrass	0.0000000
46	lutjanus_monostigma_pres	log(df.sample_data$distance_mangroves)	0.0000000
513	lutjanus_monostigma_pres	df.sample_data$size_mangroves	0.0000000
66	lutjanus_monostigma_pres	df.sample_data$mpanon-mpa	0.0000000
76	lutjanus_monostigma_pres	df.sample_data$depth10m	0.0000000
86	lutjanus_monostigma_pres	df.sample_data$northsouth	0.0000000
96	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
106	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
116	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
126	lutjanus_monostigma_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
136	lutjanus_monostigma_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
146	lutjanus_monostigma_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
156	lutjanus_monostigma_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
166	lutjanus_monostigma_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
176	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
186	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
27	mulloidichthys_flavolineatus_pres	log(df.sample_data$distance_seagrass)	0.0000000
37	mulloidichthys_flavolineatus_pres	df.sample_data$size_seagrass	0.0000000
47	mulloidichthys_flavolineatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
514	mulloidichthys_flavolineatus_pres	df.sample_data$size_mangroves	0.0000000
67	mulloidichthys_flavolineatus_pres	df.sample_data$mpanon-mpa	0.0000000
77	mulloidichthys_flavolineatus_pres	df.sample_data$depth10m	0.0000000
87	mulloidichthys_flavolineatus_pres	df.sample_data$northsouth	0.0000000
97	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
107	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
117	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
127	mulloidichthys_flavolineatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
137	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
147	mulloidichthys_flavolineatus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
157	mulloidichthys_flavolineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
167	mulloidichthys_flavolineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
177	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
187	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
1451	parupeneus_barberinus_pres	log(df.sample_data$distance_seagrass)	0.0292230
1461	parupeneus_barberinus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0191295
1471	parupeneus_barberinus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0241178
28	stethojulis_trilineata_pres	log(df.sample_data$distance_seagrass)	0.0000000
38	stethojulis_trilineata_pres	df.sample_data$size_seagrass	0.0000000
48	stethojulis_trilineata_pres	log(df.sample_data$distance_mangroves)	0.0000000
515	stethojulis_trilineata_pres	df.sample_data$size_mangroves	0.0000000
68	stethojulis_trilineata_pres	df.sample_data$mpanon-mpa	0.0000000
78	stethojulis_trilineata_pres	df.sample_data$depth10m	0.0000000
88	stethojulis_trilineata_pres	df.sample_data$northsouth	0.0000000
98	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
108	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
118	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
128	stethojulis_trilineata_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
138	stethojulis_trilineata_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
148	stethojulis_trilineata_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
158	stethojulis_trilineata_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
168	stethojulis_trilineata_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
178	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
188	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
1651	lethrinus_microdon_pres	df.sample_data$size_seagrass	0.0000000
1661	lethrinus_microdon_pres	df.sample_data$size_mangroves	0.0000000
1671	lethrinus_microdon_pres	df.sample_data$mpanon-mpa	0.0000000
1681	lethrinus_microdon_pres	df.sample_data$depth10m	0.0000000
169	lethrinus_microdon_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000111
170	lethrinus_microdon_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0418345
1711	lethrinus_microdon_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1721	lethrinus_microdon_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1731	lethrinus_microdon_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1741	lethrinus_microdon_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1751	lethrinus_microdon_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1761	lethrinus_microdon_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1771	lethrinus_microdon_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1781	lethrinus_microdon_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
29	lutjanus_ehrenbergii_pres	log(df.sample_data$distance_seagrass)	0.0000000
39	lutjanus_ehrenbergii_pres	df.sample_data$size_seagrass	0.0000000
49	lutjanus_ehrenbergii_pres	log(df.sample_data$distance_mangroves)	0.0000000
516	lutjanus_ehrenbergii_pres	df.sample_data$size_mangroves	0.0000000
69	lutjanus_ehrenbergii_pres	df.sample_data$mpanon-mpa	0.0000000
79	lutjanus_ehrenbergii_pres	df.sample_data$depth10m	0.0000000
89	lutjanus_ehrenbergii_pres	df.sample_data$northsouth	0.0000000
99	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
109	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
119	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
129	lutjanus_ehrenbergii_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
139	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
149	lutjanus_ehrenbergii_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
159	lutjanus_ehrenbergii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1610	lutjanus_ehrenbergii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
179	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
189	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
210	lutjanus_fulvus_pres	log(df.sample_data$distance_seagrass)	0.0000000
310	lutjanus_fulvus_pres	df.sample_data$size_seagrass	0.0000000
410	lutjanus_fulvus_pres	log(df.sample_data$distance_mangroves)	0.0000000
517	lutjanus_fulvus_pres	df.sample_data$size_mangroves	0.0000000
610	lutjanus_fulvus_pres	df.sample_data$mpanon-mpa	0.0000000
710	lutjanus_fulvus_pres	df.sample_data$depth10m	0.0000000
810	lutjanus_fulvus_pres	df.sample_data$northsouth	0.0000000
910	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
1010	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
1110	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1210	lutjanus_fulvus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1310	lutjanus_fulvus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1410	lutjanus_fulvus_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1510	lutjanus_fulvus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1611	lutjanus_fulvus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1710	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1810	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
211	parupeneus_barberinoides_pres	log(df.sample_data$distance_seagrass)	0.0000000
311	parupeneus_barberinoides_pres	df.sample_data$size_seagrass	0.0000000
411	parupeneus_barberinoides_pres	log(df.sample_data$distance_mangroves)	0.0000000
518	parupeneus_barberinoides_pres	df.sample_data$size_mangroves	0.0000000
611	parupeneus_barberinoides_pres	df.sample_data$mpanon-mpa	0.0000000
711	parupeneus_barberinoides_pres	df.sample_data$depth10m	0.0000000
811	parupeneus_barberinoides_pres	df.sample_data$northsouth	0.0000000
911	parupeneus_barberinoides_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
1011	parupeneus_barberinoides_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
1111	parupeneus_barberinoides_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1211	parupeneus_barberinoides_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1311	parupeneus_barberinoides_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1411	parupeneus_barberinoides_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1511	parupeneus_barberinoides_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1612	parupeneus_barberinoides_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1712	parupeneus_barberinoides_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1811	parupeneus_barberinoides_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
230	scolopsis_bilineata_pres	df.sample_data$northsouth	0.0014995
212	epinephelus_merra_pres	log(df.sample_data$distance_seagrass)	0.0000000
312	epinephelus_merra_pres	df.sample_data$size_seagrass	0.0000000
412	epinephelus_merra_pres	log(df.sample_data$distance_mangroves)	0.0000000
519	epinephelus_merra_pres	df.sample_data$size_mangroves	0.0000000
612	epinephelus_merra_pres	df.sample_data$mpanon-mpa	0.0000000
712	epinephelus_merra_pres	df.sample_data$depth10m	0.0000000
812	epinephelus_merra_pres	df.sample_data$northsouth	0.0000000
912	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
1012	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
1112	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1212	epinephelus_merra_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1312	epinephelus_merra_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1412	epinephelus_merra_pres	df.sample_data\(size_mangroves:df.sample_data\)depth10m	0.0000000
1512	epinephelus_merra_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1613	epinephelus_merra_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1713	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1812	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000

log(size_mangroves) & log(distance_mangroves)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * df.sample_data$size_seagrass * log(df.sample_data$distance_mangroves) * log(df.sample_data$size_mangroves) * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}

## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC abudefduf_sexfasciatus_pres :  1766.09536267762"

## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  3784.53995246818"

## [1] "cheilinus_undulatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilodipterus_quinquelineatus_pres :  7172.6433710452"

## [1] "fistularia_commersonii_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  5947.15915581521"

## [1] "halichoeres_argus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_argus_pres :  2342.7938169035"

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"

## [1] "halichoeres_scapularis_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  3135.75419146408"

## [1] "lethrinus_harak_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_harak_pres :  252.261920334703"

## [1] "lutjanus_decussatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  2631.14304401644"

## [1] "lutjanus_gibbus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  828.960374560578"

## [1] "lutjanus_monostigma_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  756.873067782343"

## [1] "mulloidichthys_flavolineatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  9479.43718794869"

## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres :  448.158014854641"

## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "stethojulis_trilineata_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  3135.75419146408"

## [1] "plectorhinchus_flavomaculatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_microdon_pres :  252.261920334703"

## [1] "lethrinus_obsoletus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_obsoletus_pres :  468.523840669406"

## [1] "lutjanus_ehrenbergii_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_ehrenbergii_pres :  396.436533891172"

## [1] "lutjanus_fulviflamma_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulviflamma_pres :  14885.9851963163"

## [1] "lutjanus_fulvus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  3207.84149824231"

## [1] "parupeneus_barberinoides_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC parupeneus_barberinoides_pres :  2342.7938169035"

## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"

## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC scarus_psittacus_pres :  15751.0328776551"

## [1] "epinephelus_merra_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  4793.76224736346"

## [1] "siganus_spinus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_spinus_pres :  1838.18266945586"

knitr::kable(glm_tab, escape=TRUE)

	species	coefficient	pvalue
2	abudefduf_sexfasciatus_pres	df.sample_data$distance_seagrass	0.0000000
3	abudefduf_sexfasciatus_pres	df.sample_data$size_seagrass	0.0000000
4	abudefduf_sexfasciatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
5	abudefduf_sexfasciatus_pres	log(df.sample_data$size_mangroves)	0.0000000
6	abudefduf_sexfasciatus_pres	df.sample_data$mpanon-mpa	0.0000000
7	abudefduf_sexfasciatus_pres	df.sample_data$depth10m	0.0000000
8	abudefduf_sexfasciatus_pres	df.sample_data$northsouth	0.0000000
9	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
10	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
11	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
12	abudefduf_sexfasciatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
13	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
14	abudefduf_sexfasciatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
15	abudefduf_sexfasciatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
16	abudefduf_sexfasciatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
17	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
18	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
21	cheilinus_chlorourus_pres	df.sample_data$distance_seagrass	0.0000000
31	cheilinus_chlorourus_pres	df.sample_data$size_seagrass	0.0000000
41	cheilinus_chlorourus_pres	log(df.sample_data$distance_mangroves)	0.0000000
51	cheilinus_chlorourus_pres	log(df.sample_data$size_mangroves)	0.0000000
61	cheilinus_chlorourus_pres	df.sample_data$mpanon-mpa	0.0000000
71	cheilinus_chlorourus_pres	df.sample_data$depth10m	0.0000000
81	cheilinus_chlorourus_pres	df.sample_data$northsouth	0.0000000
91	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
101	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
111	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
121	cheilinus_chlorourus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
131	cheilinus_chlorourus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
141	cheilinus_chlorourus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
151	cheilinus_chlorourus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
161	cheilinus_chlorourus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
171	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
181	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
22	cheilodipterus_quinquelineatus_pres	df.sample_data$distance_seagrass	0.0000000
32	cheilodipterus_quinquelineatus_pres	df.sample_data$size_seagrass	0.0000000
42	cheilodipterus_quinquelineatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
52	cheilodipterus_quinquelineatus_pres	log(df.sample_data$size_mangroves)	0.0000000
62	cheilodipterus_quinquelineatus_pres	df.sample_data$mpanon-mpa	0.0000000
72	cheilodipterus_quinquelineatus_pres	df.sample_data$depth10m	0.0000000
82	cheilodipterus_quinquelineatus_pres	df.sample_data$northsouth	0.0000000
92	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
102	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
112	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
122	cheilodipterus_quinquelineatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
132	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
142	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
152	cheilodipterus_quinquelineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
162	cheilodipterus_quinquelineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
172	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
182	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
23	fistularia_commersonii_pres	df.sample_data$distance_seagrass	0.0000000
33	fistularia_commersonii_pres	df.sample_data$size_seagrass	0.0000000
43	fistularia_commersonii_pres	log(df.sample_data$distance_mangroves)	0.0000000
53	fistularia_commersonii_pres	log(df.sample_data$size_mangroves)	0.0000000
63	fistularia_commersonii_pres	df.sample_data$mpanon-mpa	0.0000000
73	fistularia_commersonii_pres	df.sample_data$depth10m	0.0000000
83	fistularia_commersonii_pres	df.sample_data$northsouth	0.0000000
93	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
103	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
113	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
123	fistularia_commersonii_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
133	fistularia_commersonii_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
143	fistularia_commersonii_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
153	fistularia_commersonii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
163	fistularia_commersonii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
173	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
183	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
24	halichoeres_argus_pres	df.sample_data$distance_seagrass	0.0000000
34	halichoeres_argus_pres	df.sample_data$size_seagrass	0.0000000
44	halichoeres_argus_pres	log(df.sample_data$distance_mangroves)	0.0000000
54	halichoeres_argus_pres	log(df.sample_data$size_mangroves)	0.0000000
64	halichoeres_argus_pres	df.sample_data$mpanon-mpa	0.0000000
74	halichoeres_argus_pres	df.sample_data$depth10m	0.0000000
84	halichoeres_argus_pres	df.sample_data$northsouth	0.0000000
94	halichoeres_argus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
104	halichoeres_argus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
114	halichoeres_argus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
124	halichoeres_argus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
134	halichoeres_argus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
144	halichoeres_argus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
154	halichoeres_argus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
164	halichoeres_argus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
174	halichoeres_argus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
184	halichoeres_argus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
86	halichoeres_hortulanus_pres	df.sample_data$depth10m	0.0063682
87	halichoeres_hortulanus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000304
88	halichoeres_hortulanus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000427
89	halichoeres_hortulanus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0039758
90	halichoeres_hortulanus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0106247
911	halichoeres_hortulanus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0275659
25	halichoeres_scapularis_pres	df.sample_data$distance_seagrass	0.0000000
35	halichoeres_scapularis_pres	df.sample_data$size_seagrass	0.0000000
45	halichoeres_scapularis_pres	log(df.sample_data$distance_mangroves)	0.0000000
55	halichoeres_scapularis_pres	log(df.sample_data$size_mangroves)	0.0000000
65	halichoeres_scapularis_pres	df.sample_data$mpanon-mpa	0.0000000
75	halichoeres_scapularis_pres	df.sample_data$depth10m	0.0000000
85	halichoeres_scapularis_pres	df.sample_data$northsouth	0.0000000
95	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
105	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
115	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
125	halichoeres_scapularis_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
135	halichoeres_scapularis_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
145	halichoeres_scapularis_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
155	halichoeres_scapularis_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
165	halichoeres_scapularis_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
175	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
185	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
26	lethrinus_harak_pres	df.sample_data$distance_seagrass	0.0000000
36	lethrinus_harak_pres	df.sample_data$size_seagrass	0.0000000
46	lethrinus_harak_pres	log(df.sample_data$distance_mangroves)	0.0000000
56	lethrinus_harak_pres	log(df.sample_data$size_mangroves)	0.0000000
66	lethrinus_harak_pres	df.sample_data$mpanon-mpa	0.0000000
76	lethrinus_harak_pres	df.sample_data$depth10m	0.0000000
810	lethrinus_harak_pres	df.sample_data$northsouth	0.0000000
96	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
106	lethrinus_harak_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
116	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
126	lethrinus_harak_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
136	lethrinus_harak_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
146	lethrinus_harak_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
156	lethrinus_harak_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
166	lethrinus_harak_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
176	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
186	lethrinus_harak_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
27	lutjanus_decussatus_pres	df.sample_data$distance_seagrass	0.0000000
37	lutjanus_decussatus_pres	df.sample_data$size_seagrass	0.0000000
47	lutjanus_decussatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
57	lutjanus_decussatus_pres	log(df.sample_data$size_mangroves)	0.0000000
67	lutjanus_decussatus_pres	df.sample_data$mpanon-mpa	0.0000000
77	lutjanus_decussatus_pres	df.sample_data$depth10m	0.0000000
811	lutjanus_decussatus_pres	df.sample_data$northsouth	0.0000000
97	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
107	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
117	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
127	lutjanus_decussatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
137	lutjanus_decussatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
147	lutjanus_decussatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
157	lutjanus_decussatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
167	lutjanus_decussatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
177	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
187	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
28	lutjanus_gibbus_pres	df.sample_data$distance_seagrass	0.0000000
38	lutjanus_gibbus_pres	df.sample_data$size_seagrass	0.0000000
48	lutjanus_gibbus_pres	log(df.sample_data$distance_mangroves)	0.0000000
58	lutjanus_gibbus_pres	log(df.sample_data$size_mangroves)	0.0000000
68	lutjanus_gibbus_pres	df.sample_data$mpanon-mpa	0.0000000
78	lutjanus_gibbus_pres	df.sample_data$depth10m	0.0000000
812	lutjanus_gibbus_pres	df.sample_data$northsouth	0.0000000
98	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
108	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
118	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
128	lutjanus_gibbus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
138	lutjanus_gibbus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
148	lutjanus_gibbus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
158	lutjanus_gibbus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
168	lutjanus_gibbus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
178	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
188	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
29	lutjanus_monostigma_pres	df.sample_data$distance_seagrass	0.0000000
39	lutjanus_monostigma_pres	df.sample_data$size_seagrass	0.0000000
49	lutjanus_monostigma_pres	log(df.sample_data$distance_mangroves)	0.0000000
59	lutjanus_monostigma_pres	log(df.sample_data$size_mangroves)	0.0000000
69	lutjanus_monostigma_pres	df.sample_data$mpanon-mpa	0.0000000
79	lutjanus_monostigma_pres	df.sample_data$depth10m	0.0000000
813	lutjanus_monostigma_pres	df.sample_data$northsouth	0.0000000
99	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
109	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
119	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
129	lutjanus_monostigma_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
139	lutjanus_monostigma_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
149	lutjanus_monostigma_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
159	lutjanus_monostigma_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
169	lutjanus_monostigma_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
179	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
189	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
210	mulloidichthys_flavolineatus_pres	df.sample_data$distance_seagrass	0.0000000
310	mulloidichthys_flavolineatus_pres	df.sample_data$size_seagrass	0.0000000
410	mulloidichthys_flavolineatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
510	mulloidichthys_flavolineatus_pres	log(df.sample_data$size_mangroves)	0.0000000
610	mulloidichthys_flavolineatus_pres	df.sample_data$mpanon-mpa	0.0000000
710	mulloidichthys_flavolineatus_pres	df.sample_data$depth10m	0.0000000
814	mulloidichthys_flavolineatus_pres	df.sample_data$northsouth	0.0000000
910	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1010	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1110	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1210	mulloidichthys_flavolineatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1310	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1410	mulloidichthys_flavolineatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1510	mulloidichthys_flavolineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1610	mulloidichthys_flavolineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1710	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1810	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
194	parupeneus_barberinus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0209481
195	parupeneus_barberinus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0317834
211	stethojulis_trilineata_pres	df.sample_data$distance_seagrass	0.0000000
311	stethojulis_trilineata_pres	df.sample_data$size_seagrass	0.0000000
411	stethojulis_trilineata_pres	log(df.sample_data$distance_mangroves)	0.0000000
511	stethojulis_trilineata_pres	log(df.sample_data$size_mangroves)	0.0000000
611	stethojulis_trilineata_pres	df.sample_data$mpanon-mpa	0.0000000
711	stethojulis_trilineata_pres	df.sample_data$depth10m	0.0000000
815	stethojulis_trilineata_pres	df.sample_data$northsouth	0.0000000
912	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1011	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1111	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1211	stethojulis_trilineata_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1311	stethojulis_trilineata_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1411	stethojulis_trilineata_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1511	stethojulis_trilineata_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1611	stethojulis_trilineata_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1711	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1811	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
212	lethrinus_microdon_pres	df.sample_data$distance_seagrass	0.0000000
312	lethrinus_microdon_pres	df.sample_data$size_seagrass	0.0000000
412	lethrinus_microdon_pres	log(df.sample_data$distance_mangroves)	0.0000000
512	lethrinus_microdon_pres	log(df.sample_data$size_mangroves)	0.0000000
612	lethrinus_microdon_pres	df.sample_data$mpanon-mpa	0.0000000
712	lethrinus_microdon_pres	df.sample_data$depth10m	0.0000000
816	lethrinus_microdon_pres	df.sample_data$northsouth	0.0000000
913	lethrinus_microdon_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1012	lethrinus_microdon_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1112	lethrinus_microdon_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1212	lethrinus_microdon_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1312	lethrinus_microdon_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1412	lethrinus_microdon_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1512	lethrinus_microdon_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1612	lethrinus_microdon_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1712	lethrinus_microdon_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1812	lethrinus_microdon_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
213	lethrinus_obsoletus_pres	df.sample_data$distance_seagrass	0.0000000
313	lethrinus_obsoletus_pres	df.sample_data$size_seagrass	0.0000000
413	lethrinus_obsoletus_pres	log(df.sample_data$distance_mangroves)	0.0000000
513	lethrinus_obsoletus_pres	log(df.sample_data$size_mangroves)	0.0000000
613	lethrinus_obsoletus_pres	df.sample_data$mpanon-mpa	0.0000000
713	lethrinus_obsoletus_pres	df.sample_data$depth10m	0.0000000
817	lethrinus_obsoletus_pres	df.sample_data$northsouth	0.0000000
914	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1013	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1113	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1213	lethrinus_obsoletus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1313	lethrinus_obsoletus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1413	lethrinus_obsoletus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1513	lethrinus_obsoletus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1613	lethrinus_obsoletus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1713	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1813	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
214	lutjanus_ehrenbergii_pres	df.sample_data$distance_seagrass	0.0000000
314	lutjanus_ehrenbergii_pres	df.sample_data$size_seagrass	0.0000000
414	lutjanus_ehrenbergii_pres	log(df.sample_data$distance_mangroves)	0.0000000
514	lutjanus_ehrenbergii_pres	log(df.sample_data$size_mangroves)	0.0000000
614	lutjanus_ehrenbergii_pres	df.sample_data$mpanon-mpa	0.0000000
714	lutjanus_ehrenbergii_pres	df.sample_data$depth10m	0.0000000
818	lutjanus_ehrenbergii_pres	df.sample_data$northsouth	0.0000000
915	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1014	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1114	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1214	lutjanus_ehrenbergii_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1314	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1414	lutjanus_ehrenbergii_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1514	lutjanus_ehrenbergii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1614	lutjanus_ehrenbergii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1714	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1814	lutjanus_ehrenbergii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
215	lutjanus_fulviflamma_pres	df.sample_data$distance_seagrass	0.0000000
315	lutjanus_fulviflamma_pres	df.sample_data$size_seagrass	0.0000000
415	lutjanus_fulviflamma_pres	log(df.sample_data$distance_mangroves)	0.0000000
515	lutjanus_fulviflamma_pres	log(df.sample_data$size_mangroves)	0.0000000
615	lutjanus_fulviflamma_pres	df.sample_data$mpanon-mpa	0.0000000
715	lutjanus_fulviflamma_pres	df.sample_data$depth10m	0.0000000
819	lutjanus_fulviflamma_pres	df.sample_data$northsouth	0.0000000
916	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1015	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1115	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1215	lutjanus_fulviflamma_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1315	lutjanus_fulviflamma_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1415	lutjanus_fulviflamma_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1515	lutjanus_fulviflamma_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1615	lutjanus_fulviflamma_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1715	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1815	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
216	lutjanus_fulvus_pres	df.sample_data$distance_seagrass	0.0000000
316	lutjanus_fulvus_pres	df.sample_data$size_seagrass	0.0000000
416	lutjanus_fulvus_pres	log(df.sample_data$distance_mangroves)	0.0000000
516	lutjanus_fulvus_pres	log(df.sample_data$size_mangroves)	0.0000000
616	lutjanus_fulvus_pres	df.sample_data$mpanon-mpa	0.0000000
716	lutjanus_fulvus_pres	df.sample_data$depth10m	0.0000000
820	lutjanus_fulvus_pres	df.sample_data$northsouth	0.0000000
917	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1016	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1116	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1216	lutjanus_fulvus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1316	lutjanus_fulvus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1416	lutjanus_fulvus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1516	lutjanus_fulvus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1616	lutjanus_fulvus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1716	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1816	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
217	parupeneus_barberinoides_pres	df.sample_data$distance_seagrass	0.0000000
317	parupeneus_barberinoides_pres	df.sample_data$size_seagrass	0.0000000
417	parupeneus_barberinoides_pres	log(df.sample_data$distance_mangroves)	0.0000000
517	parupeneus_barberinoides_pres	log(df.sample_data$size_mangroves)	0.0000000
617	parupeneus_barberinoides_pres	df.sample_data$mpanon-mpa	0.0000000
717	parupeneus_barberinoides_pres	df.sample_data$depth10m	0.0000000
821	parupeneus_barberinoides_pres	df.sample_data$northsouth	0.0000000
918	parupeneus_barberinoides_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1017	parupeneus_barberinoides_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1117	parupeneus_barberinoides_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1217	parupeneus_barberinoides_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1317	parupeneus_barberinoides_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1417	parupeneus_barberinoides_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1517	parupeneus_barberinoides_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1617	parupeneus_barberinoides_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1717	parupeneus_barberinoides_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1817	parupeneus_barberinoides_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
3151	scolopsis_bilineata_pres	log(df.sample_data$distance_mangroves)	0.0172748
3161	scolopsis_bilineata_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0419682
218	scarus_psittacus_pres	df.sample_data$distance_seagrass	0.0000000
318	scarus_psittacus_pres	df.sample_data$size_seagrass	0.0000000
418	scarus_psittacus_pres	log(df.sample_data$distance_mangroves)	0.0000000
518	scarus_psittacus_pres	log(df.sample_data$size_mangroves)	0.0000000
618	scarus_psittacus_pres	df.sample_data$mpanon-mpa	0.0000000
718	scarus_psittacus_pres	df.sample_data$depth10m	0.0000000
822	scarus_psittacus_pres	df.sample_data$northsouth	0.0000000
919	scarus_psittacus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1018	scarus_psittacus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1118	scarus_psittacus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1218	scarus_psittacus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1318	scarus_psittacus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1418	scarus_psittacus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1518	scarus_psittacus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1618	scarus_psittacus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1718	scarus_psittacus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1818	scarus_psittacus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
219	epinephelus_merra_pres	df.sample_data$distance_seagrass	0.0000000
319	epinephelus_merra_pres	df.sample_data$size_seagrass	0.0000000
419	epinephelus_merra_pres	log(df.sample_data$distance_mangroves)	0.0000000
519	epinephelus_merra_pres	log(df.sample_data$size_mangroves)	0.0000000
619	epinephelus_merra_pres	df.sample_data$mpanon-mpa	0.0000000
719	epinephelus_merra_pres	df.sample_data$depth10m	0.0000000
823	epinephelus_merra_pres	df.sample_data$northsouth	0.0000000
920	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1019	epinephelus_merra_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1119	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1219	epinephelus_merra_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1319	epinephelus_merra_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1419	epinephelus_merra_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1519	epinephelus_merra_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1619	epinephelus_merra_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1719	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1819	epinephelus_merra_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
220	siganus_spinus_pres	df.sample_data$distance_seagrass	0.0000000
320	siganus_spinus_pres	df.sample_data$size_seagrass	0.0000000
420	siganus_spinus_pres	log(df.sample_data$distance_mangroves)	0.0000000
520	siganus_spinus_pres	log(df.sample_data$size_mangroves)	0.0000000
620	siganus_spinus_pres	df.sample_data$mpanon-mpa	0.0000000
720	siganus_spinus_pres	df.sample_data$depth10m	0.0000000
824	siganus_spinus_pres	df.sample_data$northsouth	0.0000000
921	siganus_spinus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass	0.0000000
1020	siganus_spinus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1120	siganus_spinus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1220	siganus_spinus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1320	siganus_spinus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1420	siganus_spinus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1520	siganus_spinus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1620	siganus_spinus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1720	siganus_spinus_pres	df.sample_data\(distance_seagrass:df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1820	siganus_spinus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000

log(size_seagrass), log(size_mangroves) & log(distance_mangroves)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ df.sample_data$distance_seagrass * log(df.sample_data$size_seagrass) * log(df.sample_data$distance_mangroves) * log(df.sample_data$size_mangroves) * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}

## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC abudefduf_sexfasciatus_pres :  17913.6520810021"

## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  8253.95297271871"

## [1] "cheilinus_undulatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilodipterus_quinquelineatus_pres :  7172.6433710452"

## [1] "fistularia_commersonii_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  5370.46070158934"

## [1] "halichoeres_argus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_argus_pres :  2342.7938169035"

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"

## [1] "halichoeres_scapularis_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  5442.54800836757"

## [1] "lethrinus_harak_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_harak_pres :  252.261920334703"

## [1] "lutjanus_decussatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  2631.14304401644"

## [1] "lutjanus_gibbus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  828.960374560578"

## [1] "lutjanus_monostigma_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  756.873067782343"

## [1] "mulloidichthys_flavolineatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  3135.75419146408"

## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres :  448.158014854641"

## [1] "siganus_guttatus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_guttatus_pres :  1766.09536267762"

## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "stethojulis_trilineata_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  1694.00805589939"

## [1] "plectorhinchus_flavomaculatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"
## [1] "lethrinus_obsoletus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_obsoletus_pres :  468.523840669406"

## [1] "lutjanus_ehrenbergii_pres"
## [1] "lutjanus_fulviflamma_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulviflamma_pres :  756.873067782343"

## [1] "lutjanus_fulvus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  4505.41302025053"

## [1] "parupeneus_barberinoides_pres"
## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"

## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC scarus_psittacus_pres :  22815.588941922"

## [1] "epinephelus_merra_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  5082.1114744764"

## [1] "siganus_spinus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_spinus_pres :  6163.42107614992"

knitr::kable(glm_tab, escape=TRUE)

	species	coefficient	pvalue
2	abudefduf_sexfasciatus_pres	df.sample_data$distance_seagrass	0.0000000
3	abudefduf_sexfasciatus_pres	log(df.sample_data$size_seagrass)	0.0000000
4	abudefduf_sexfasciatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
5	abudefduf_sexfasciatus_pres	log(df.sample_data$size_mangroves)	0.0000000
6	abudefduf_sexfasciatus_pres	df.sample_data$mpanon-mpa	0.0000000
7	abudefduf_sexfasciatus_pres	df.sample_data$depth10m	0.0000000
8	abudefduf_sexfasciatus_pres	df.sample_data$northsouth	0.0000000
9	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
10	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
11	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
12	abudefduf_sexfasciatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
13	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
14	abudefduf_sexfasciatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
15	abudefduf_sexfasciatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
16	abudefduf_sexfasciatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
17	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
18	abudefduf_sexfasciatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
21	cheilinus_chlorourus_pres	df.sample_data$distance_seagrass	0.0000000
31	cheilinus_chlorourus_pres	log(df.sample_data$size_seagrass)	0.0000000
41	cheilinus_chlorourus_pres	log(df.sample_data$distance_mangroves)	0.0000000
51	cheilinus_chlorourus_pres	log(df.sample_data$size_mangroves)	0.0000000
61	cheilinus_chlorourus_pres	df.sample_data$mpanon-mpa	0.0000000
71	cheilinus_chlorourus_pres	df.sample_data$depth10m	0.0000000
81	cheilinus_chlorourus_pres	df.sample_data$northsouth	0.0000000
91	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
101	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
111	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
121	cheilinus_chlorourus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
131	cheilinus_chlorourus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
141	cheilinus_chlorourus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
151	cheilinus_chlorourus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
161	cheilinus_chlorourus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
171	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
181	cheilinus_chlorourus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
22	cheilodipterus_quinquelineatus_pres	df.sample_data$distance_seagrass	0.0000000
32	cheilodipterus_quinquelineatus_pres	log(df.sample_data$size_seagrass)	0.0000000
42	cheilodipterus_quinquelineatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
52	cheilodipterus_quinquelineatus_pres	log(df.sample_data$size_mangroves)	0.0000000
62	cheilodipterus_quinquelineatus_pres	df.sample_data$mpanon-mpa	0.0000000
72	cheilodipterus_quinquelineatus_pres	df.sample_data$depth10m	0.0000000
82	cheilodipterus_quinquelineatus_pres	df.sample_data$northsouth	0.0000000
92	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
102	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
112	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
122	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
132	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
142	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
152	cheilodipterus_quinquelineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
162	cheilodipterus_quinquelineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
172	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
182	cheilodipterus_quinquelineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
23	fistularia_commersonii_pres	df.sample_data$distance_seagrass	0.0000000
33	fistularia_commersonii_pres	log(df.sample_data$size_seagrass)	0.0000000
43	fistularia_commersonii_pres	log(df.sample_data$distance_mangroves)	0.0000000
53	fistularia_commersonii_pres	log(df.sample_data$size_mangroves)	0.0000000
63	fistularia_commersonii_pres	df.sample_data$mpanon-mpa	0.0000000
73	fistularia_commersonii_pres	df.sample_data$depth10m	0.0000000
83	fistularia_commersonii_pres	df.sample_data$northsouth	0.0000000
93	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
103	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
113	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
123	fistularia_commersonii_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
133	fistularia_commersonii_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
143	fistularia_commersonii_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
153	fistularia_commersonii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
163	fistularia_commersonii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
173	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
183	fistularia_commersonii_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
24	halichoeres_argus_pres	df.sample_data$distance_seagrass	0.0000000
34	halichoeres_argus_pres	log(df.sample_data$size_seagrass)	0.0000000
44	halichoeres_argus_pres	log(df.sample_data$distance_mangroves)	0.0000000
54	halichoeres_argus_pres	log(df.sample_data$size_mangroves)	0.0000000
64	halichoeres_argus_pres	df.sample_data$mpanon-mpa	0.0000000
74	halichoeres_argus_pres	df.sample_data$depth10m	0.0000000
84	halichoeres_argus_pres	df.sample_data$northsouth	0.0000000
94	halichoeres_argus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
104	halichoeres_argus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
114	halichoeres_argus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
124	halichoeres_argus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
134	halichoeres_argus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
144	halichoeres_argus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
154	halichoeres_argus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
164	halichoeres_argus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
174	halichoeres_argus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
184	halichoeres_argus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
86	halichoeres_hortulanus_pres	df.sample_data$depth10m	0.0000551
87	halichoeres_hortulanus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0002604
88	halichoeres_hortulanus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000498
89	halichoeres_hortulanus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000038
90	halichoeres_hortulanus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000301
911	halichoeres_hortulanus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0006595
921	halichoeres_hortulanus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0001526
931	halichoeres_hortulanus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0001871
25	halichoeres_scapularis_pres	df.sample_data$distance_seagrass	0.0000000
35	halichoeres_scapularis_pres	log(df.sample_data$size_seagrass)	0.0000000
45	halichoeres_scapularis_pres	log(df.sample_data$distance_mangroves)	0.0000000
55	halichoeres_scapularis_pres	log(df.sample_data$size_mangroves)	0.0000000
65	halichoeres_scapularis_pres	df.sample_data$mpanon-mpa	0.0000000
75	halichoeres_scapularis_pres	df.sample_data$depth10m	0.0000000
85	halichoeres_scapularis_pres	df.sample_data$northsouth	0.0000000
95	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
105	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
115	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
125	halichoeres_scapularis_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
135	halichoeres_scapularis_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
145	halichoeres_scapularis_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
155	halichoeres_scapularis_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
165	halichoeres_scapularis_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
175	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
185	halichoeres_scapularis_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
26	lethrinus_harak_pres	df.sample_data$distance_seagrass	0.0000000
36	lethrinus_harak_pres	log(df.sample_data$size_seagrass)	0.0000000
46	lethrinus_harak_pres	log(df.sample_data$distance_mangroves)	0.0000000
56	lethrinus_harak_pres	log(df.sample_data$size_mangroves)	0.0000000
66	lethrinus_harak_pres	df.sample_data$mpanon-mpa	0.0000000
76	lethrinus_harak_pres	df.sample_data$depth10m	0.0000000
810	lethrinus_harak_pres	df.sample_data$northsouth	0.0000000
96	lethrinus_harak_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
106	lethrinus_harak_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
116	lethrinus_harak_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
126	lethrinus_harak_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
136	lethrinus_harak_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
146	lethrinus_harak_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
156	lethrinus_harak_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
166	lethrinus_harak_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
176	lethrinus_harak_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
186	lethrinus_harak_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
27	lutjanus_decussatus_pres	df.sample_data$distance_seagrass	0.0000000
37	lutjanus_decussatus_pres	log(df.sample_data$size_seagrass)	0.0000000
47	lutjanus_decussatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
57	lutjanus_decussatus_pres	log(df.sample_data$size_mangroves)	0.0000000
67	lutjanus_decussatus_pres	df.sample_data$mpanon-mpa	0.0000000
77	lutjanus_decussatus_pres	df.sample_data$depth10m	0.0000000
811	lutjanus_decussatus_pres	df.sample_data$northsouth	0.0000000
97	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
107	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
117	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
127	lutjanus_decussatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
137	lutjanus_decussatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
147	lutjanus_decussatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
157	lutjanus_decussatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
167	lutjanus_decussatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
177	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
187	lutjanus_decussatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
28	lutjanus_gibbus_pres	df.sample_data$distance_seagrass	0.0000000
38	lutjanus_gibbus_pres	log(df.sample_data$size_seagrass)	0.0000000
48	lutjanus_gibbus_pres	log(df.sample_data$distance_mangroves)	0.0000000
58	lutjanus_gibbus_pres	log(df.sample_data$size_mangroves)	0.0000000
68	lutjanus_gibbus_pres	df.sample_data$mpanon-mpa	0.0000000
78	lutjanus_gibbus_pres	df.sample_data$depth10m	0.0000000
812	lutjanus_gibbus_pres	df.sample_data$northsouth	0.0000000
98	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
108	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
118	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
128	lutjanus_gibbus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
138	lutjanus_gibbus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
148	lutjanus_gibbus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
158	lutjanus_gibbus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
168	lutjanus_gibbus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
178	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
188	lutjanus_gibbus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
29	lutjanus_monostigma_pres	df.sample_data$distance_seagrass	0.0000000
39	lutjanus_monostigma_pres	log(df.sample_data$size_seagrass)	0.0000000
49	lutjanus_monostigma_pres	log(df.sample_data$distance_mangroves)	0.0000000
59	lutjanus_monostigma_pres	log(df.sample_data$size_mangroves)	0.0000000
69	lutjanus_monostigma_pres	df.sample_data$mpanon-mpa	0.0000000
79	lutjanus_monostigma_pres	df.sample_data$depth10m	0.0000000
813	lutjanus_monostigma_pres	df.sample_data$northsouth	0.0000000
99	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
109	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
119	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
129	lutjanus_monostigma_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
139	lutjanus_monostigma_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
149	lutjanus_monostigma_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
159	lutjanus_monostigma_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
169	lutjanus_monostigma_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
179	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
189	lutjanus_monostigma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
210	mulloidichthys_flavolineatus_pres	df.sample_data$distance_seagrass	0.0000000
310	mulloidichthys_flavolineatus_pres	log(df.sample_data$size_seagrass)	0.0000000
410	mulloidichthys_flavolineatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
510	mulloidichthys_flavolineatus_pres	log(df.sample_data$size_mangroves)	0.0000000
610	mulloidichthys_flavolineatus_pres	df.sample_data$mpanon-mpa	0.0000000
710	mulloidichthys_flavolineatus_pres	df.sample_data$depth10m	0.0000000
814	mulloidichthys_flavolineatus_pres	df.sample_data$northsouth	0.0000000
910	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1010	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1110	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1210	mulloidichthys_flavolineatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1310	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1410	mulloidichthys_flavolineatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1510	mulloidichthys_flavolineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1610	mulloidichthys_flavolineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1710	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1810	mulloidichthys_flavolineatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
196	parupeneus_barberinus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0320124
197	parupeneus_barberinus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0424375
198	parupeneus_barberinus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0341348
211	siganus_guttatus_pres	df.sample_data$distance_seagrass	0.0000000
311	siganus_guttatus_pres	log(df.sample_data$size_seagrass)	0.0000000
411	siganus_guttatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
511	siganus_guttatus_pres	log(df.sample_data$size_mangroves)	0.0000000
611	siganus_guttatus_pres	df.sample_data$mpanon-mpa	0.0000000
711	siganus_guttatus_pres	df.sample_data$depth10m	0.0000000
815	siganus_guttatus_pres	df.sample_data$northsouth	0.0000000
912	siganus_guttatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1011	siganus_guttatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1111	siganus_guttatus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1211	siganus_guttatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1311	siganus_guttatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1411	siganus_guttatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1511	siganus_guttatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1611	siganus_guttatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1711	siganus_guttatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1811	siganus_guttatus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
212	stethojulis_trilineata_pres	df.sample_data$distance_seagrass	0.0000000
312	stethojulis_trilineata_pres	log(df.sample_data$size_seagrass)	0.0000000
412	stethojulis_trilineata_pres	log(df.sample_data$distance_mangroves)	0.0000000
512	stethojulis_trilineata_pres	log(df.sample_data$size_mangroves)	0.0000000
612	stethojulis_trilineata_pres	df.sample_data$mpanon-mpa	0.0000000
712	stethojulis_trilineata_pres	df.sample_data$depth10m	0.0000000
816	stethojulis_trilineata_pres	df.sample_data$northsouth	0.0000000
913	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1012	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1112	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1212	stethojulis_trilineata_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1312	stethojulis_trilineata_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1412	stethojulis_trilineata_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1512	stethojulis_trilineata_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1612	stethojulis_trilineata_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1712	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1812	stethojulis_trilineata_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
213	lethrinus_obsoletus_pres	df.sample_data$distance_seagrass	0.0000000
313	lethrinus_obsoletus_pres	log(df.sample_data$size_seagrass)	0.0000000
413	lethrinus_obsoletus_pres	log(df.sample_data$distance_mangroves)	0.0000000
513	lethrinus_obsoletus_pres	log(df.sample_data$size_mangroves)	0.0000000
613	lethrinus_obsoletus_pres	df.sample_data$mpanon-mpa	0.0000000
713	lethrinus_obsoletus_pres	df.sample_data$depth10m	0.0000000
817	lethrinus_obsoletus_pres	df.sample_data$northsouth	0.0000000
914	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1013	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1113	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1213	lethrinus_obsoletus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1313	lethrinus_obsoletus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1413	lethrinus_obsoletus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1513	lethrinus_obsoletus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1613	lethrinus_obsoletus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1713	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1813	lethrinus_obsoletus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
214	lutjanus_fulviflamma_pres	df.sample_data$distance_seagrass	0.0000000
314	lutjanus_fulviflamma_pres	log(df.sample_data$size_seagrass)	0.0000000
414	lutjanus_fulviflamma_pres	log(df.sample_data$distance_mangroves)	0.0000000
514	lutjanus_fulviflamma_pres	log(df.sample_data$size_mangroves)	0.0000000
614	lutjanus_fulviflamma_pres	df.sample_data$mpanon-mpa	0.0000000
714	lutjanus_fulviflamma_pres	df.sample_data$depth10m	0.0000000
818	lutjanus_fulviflamma_pres	df.sample_data$northsouth	0.0000000
915	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1014	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1114	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1214	lutjanus_fulviflamma_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1314	lutjanus_fulviflamma_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1414	lutjanus_fulviflamma_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1514	lutjanus_fulviflamma_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1614	lutjanus_fulviflamma_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1714	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1814	lutjanus_fulviflamma_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
215	lutjanus_fulvus_pres	df.sample_data$distance_seagrass	0.0000000
315	lutjanus_fulvus_pres	log(df.sample_data$size_seagrass)	0.0000000
415	lutjanus_fulvus_pres	log(df.sample_data$distance_mangroves)	0.0000000
515	lutjanus_fulvus_pres	log(df.sample_data$size_mangroves)	0.0000000
615	lutjanus_fulvus_pres	df.sample_data$mpanon-mpa	0.0000000
715	lutjanus_fulvus_pres	df.sample_data$depth10m	0.0000000
819	lutjanus_fulvus_pres	df.sample_data$northsouth	0.0000000
916	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1015	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1115	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1215	lutjanus_fulvus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1315	lutjanus_fulvus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1415	lutjanus_fulvus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1515	lutjanus_fulvus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1615	lutjanus_fulvus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1715	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1815	lutjanus_fulvus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
284	scolopsis_bilineata_pres	df.sample_data$mpanon-mpa	0.0220558
285	scolopsis_bilineata_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0271612
286	scolopsis_bilineata_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0397889
287	scolopsis_bilineata_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0354378
288	scolopsis_bilineata_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0385703
289	scolopsis_bilineata_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0250383
216	scarus_psittacus_pres	df.sample_data$distance_seagrass	0.0000000
316	scarus_psittacus_pres	log(df.sample_data$size_seagrass)	0.0000000
416	scarus_psittacus_pres	log(df.sample_data$distance_mangroves)	0.0000000
516	scarus_psittacus_pres	log(df.sample_data$size_mangroves)	0.0000000
616	scarus_psittacus_pres	df.sample_data$mpanon-mpa	0.0000000
716	scarus_psittacus_pres	df.sample_data$depth10m	0.0000000
820	scarus_psittacus_pres	df.sample_data$northsouth	0.0000000
917	scarus_psittacus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1016	scarus_psittacus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1116	scarus_psittacus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1216	scarus_psittacus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1316	scarus_psittacus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1416	scarus_psittacus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1516	scarus_psittacus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1616	scarus_psittacus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1716	scarus_psittacus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1816	scarus_psittacus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
217	epinephelus_merra_pres	df.sample_data$distance_seagrass	0.0000000
317	epinephelus_merra_pres	log(df.sample_data$size_seagrass)	0.0000000
417	epinephelus_merra_pres	log(df.sample_data$distance_mangroves)	0.0000000
517	epinephelus_merra_pres	log(df.sample_data$size_mangroves)	0.0000000
617	epinephelus_merra_pres	df.sample_data$mpanon-mpa	0.0000000
717	epinephelus_merra_pres	df.sample_data$depth10m	0.0000000
821	epinephelus_merra_pres	df.sample_data$northsouth	0.0000000
918	epinephelus_merra_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1017	epinephelus_merra_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1117	epinephelus_merra_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1217	epinephelus_merra_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1317	epinephelus_merra_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1417	epinephelus_merra_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1517	epinephelus_merra_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1617	epinephelus_merra_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1717	epinephelus_merra_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1817	epinephelus_merra_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
218	siganus_spinus_pres	df.sample_data$distance_seagrass	0.0000000
318	siganus_spinus_pres	log(df.sample_data$size_seagrass)	0.0000000
418	siganus_spinus_pres	log(df.sample_data$distance_mangroves)	0.0000000
518	siganus_spinus_pres	log(df.sample_data$size_mangroves)	0.0000000
618	siganus_spinus_pres	df.sample_data$mpanon-mpa	0.0000000
718	siganus_spinus_pres	df.sample_data$depth10m	0.0000000
822	siganus_spinus_pres	df.sample_data$northsouth	0.0000000
919	siganus_spinus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass)	0.0000000
1018	siganus_spinus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves)	0.0000000
1118	siganus_spinus_pres	df.sample_data\(distance_seagrass:df.sample_data\)depth10m	0.0000000
1218	siganus_spinus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1318	siganus_spinus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1418	siganus_spinus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1518	siganus_spinus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1618	siganus_spinus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1718	siganus_spinus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1818	siganus_spinus_pres	df.sample_data\(distance_seagrass:log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000

log(distance_seagrass), log(size_mangroves) & log(distance_mangroves)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ log(df.sample_data$distance_seagrass) * df.sample_data$size_seagrass * log(df.sample_data$distance_mangroves) * log(df.sample_data$size_mangroves) * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}

## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC abudefduf_sexfasciatus_pres :  1766.09536267762"

## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  20941.3189656879"

## [1] "cheilinus_undulatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "fistularia_commersonii_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  4649.587633807"

## [1] "halichoeres_argus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_argus_pres :  2342.7938169035"

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"

## [1] "halichoeres_scapularis_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  9767.78641506163"

## [1] "lethrinus_harak_pres"
## [1] "lutjanus_decussatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  2631.14304401644"

## [1] "lutjanus_gibbus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  828.960374560578"

## [1] "lutjanus_monostigma_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  11714.143698074"

## [1] "mulloidichthys_flavolineatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  1694.00805589939"

## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres :  448.158014854641"

## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "stethojulis_trilineata_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  1694.00805589939"

## [1] "plectorhinchus_flavomaculatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_microdon_pres :  252.261920334703"

## [1] "lethrinus_obsoletus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_obsoletus_pres :  468.523840669406"

## [1] "lutjanus_ehrenbergii_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_ehrenbergii_pres :  396.436533891172"

## [1] "lutjanus_fulviflamma_pres"
## [1] "lutjanus_fulvus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  9263.17526761399"

## [1] "parupeneus_barberinoides_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC parupeneus_barberinoides_pres :  3928.71456602465"

## [1] "scolopsis_bilineata_pres"
## [1] "AIC scolopsis_bilineata_pres :  383.251952776691"

## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"
## [1] "epinephelus_merra_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  3640.36533891172"

## [1] "siganus_spinus_pres"

knitr::kable(glm_tab, escape=TRUE)

	species	coefficient	pvalue
2	abudefduf_sexfasciatus_pres	log(df.sample_data$distance_seagrass)	0.0000000
3	abudefduf_sexfasciatus_pres	df.sample_data$size_seagrass	0.0000000
4	abudefduf_sexfasciatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
5	abudefduf_sexfasciatus_pres	log(df.sample_data$size_mangroves)	0.0000000
6	abudefduf_sexfasciatus_pres	df.sample_data$mpanon-mpa	0.0000000
7	abudefduf_sexfasciatus_pres	df.sample_data$depth10m	0.0000000
8	abudefduf_sexfasciatus_pres	df.sample_data$northsouth	0.0000000
9	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
10	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
11	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
12	abudefduf_sexfasciatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
13	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
14	abudefduf_sexfasciatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
15	abudefduf_sexfasciatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
16	abudefduf_sexfasciatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
17	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
18	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
21	cheilinus_chlorourus_pres	log(df.sample_data$distance_seagrass)	0.0000000
31	cheilinus_chlorourus_pres	df.sample_data$size_seagrass	0.0000000
41	cheilinus_chlorourus_pres	log(df.sample_data$distance_mangroves)	0.0000000
51	cheilinus_chlorourus_pres	log(df.sample_data$size_mangroves)	0.0000000
61	cheilinus_chlorourus_pres	df.sample_data$mpanon-mpa	0.0000000
71	cheilinus_chlorourus_pres	df.sample_data$depth10m	0.0000000
81	cheilinus_chlorourus_pres	df.sample_data$northsouth	0.0000000
91	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
101	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
111	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
121	cheilinus_chlorourus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
131	cheilinus_chlorourus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
141	cheilinus_chlorourus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
151	cheilinus_chlorourus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
161	cheilinus_chlorourus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
171	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
181	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
22	fistularia_commersonii_pres	log(df.sample_data$distance_seagrass)	0.0000000
32	fistularia_commersonii_pres	df.sample_data$size_seagrass	0.0000000
42	fistularia_commersonii_pres	log(df.sample_data$distance_mangroves)	0.0000000
52	fistularia_commersonii_pres	log(df.sample_data$size_mangroves)	0.0000000
62	fistularia_commersonii_pres	df.sample_data$mpanon-mpa	0.0000000
72	fistularia_commersonii_pres	df.sample_data$depth10m	0.0000000
82	fistularia_commersonii_pres	df.sample_data$northsouth	0.0000000
92	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
102	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
112	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
122	fistularia_commersonii_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
132	fistularia_commersonii_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
142	fistularia_commersonii_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
152	fistularia_commersonii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
162	fistularia_commersonii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
172	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
182	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
23	halichoeres_argus_pres	log(df.sample_data$distance_seagrass)	0.0000000
33	halichoeres_argus_pres	df.sample_data$size_seagrass	0.0000000
43	halichoeres_argus_pres	log(df.sample_data$distance_mangroves)	0.0000000
53	halichoeres_argus_pres	log(df.sample_data$size_mangroves)	0.0000000
63	halichoeres_argus_pres	df.sample_data$mpanon-mpa	0.0000000
73	halichoeres_argus_pres	df.sample_data$depth10m	0.0000000
83	halichoeres_argus_pres	df.sample_data$northsouth	0.0000000
93	halichoeres_argus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
103	halichoeres_argus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
113	halichoeres_argus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
123	halichoeres_argus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
133	halichoeres_argus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
143	halichoeres_argus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
153	halichoeres_argus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
163	halichoeres_argus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
173	halichoeres_argus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
183	halichoeres_argus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
69	halichoeres_hortulanus_pres	df.sample_data$depth10m	0.0022797
70	halichoeres_hortulanus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0207458
711	halichoeres_hortulanus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000431
721	halichoeres_hortulanus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0004669
731	halichoeres_hortulanus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0029990
74	halichoeres_hortulanus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0043184
75	halichoeres_hortulanus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0003147
76	halichoeres_hortulanus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0484395
24	halichoeres_scapularis_pres	log(df.sample_data$distance_seagrass)	0.0000000
34	halichoeres_scapularis_pres	df.sample_data$size_seagrass	0.0000000
44	halichoeres_scapularis_pres	log(df.sample_data$distance_mangroves)	0.0000000
54	halichoeres_scapularis_pres	log(df.sample_data$size_mangroves)	0.0000000
64	halichoeres_scapularis_pres	df.sample_data$mpanon-mpa	0.0000000
77	halichoeres_scapularis_pres	df.sample_data$depth10m	0.0000000
84	halichoeres_scapularis_pres	df.sample_data$northsouth	0.0000000
94	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
104	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
114	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
124	halichoeres_scapularis_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
134	halichoeres_scapularis_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
144	halichoeres_scapularis_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
154	halichoeres_scapularis_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
164	halichoeres_scapularis_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
174	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
184	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
25	lutjanus_decussatus_pres	log(df.sample_data$distance_seagrass)	0.0000000
35	lutjanus_decussatus_pres	df.sample_data$size_seagrass	0.0000000
45	lutjanus_decussatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
55	lutjanus_decussatus_pres	log(df.sample_data$size_mangroves)	0.0000000
65	lutjanus_decussatus_pres	df.sample_data$mpanon-mpa	0.0000000
78	lutjanus_decussatus_pres	df.sample_data$depth10m	0.0000000
85	lutjanus_decussatus_pres	df.sample_data$northsouth	0.0000000
95	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
105	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
115	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
125	lutjanus_decussatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
135	lutjanus_decussatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
145	lutjanus_decussatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
155	lutjanus_decussatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
165	lutjanus_decussatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
175	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
185	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
26	lutjanus_gibbus_pres	log(df.sample_data$distance_seagrass)	0.0000000
36	lutjanus_gibbus_pres	df.sample_data$size_seagrass	0.0000000
46	lutjanus_gibbus_pres	log(df.sample_data$distance_mangroves)	0.0000000
56	lutjanus_gibbus_pres	log(df.sample_data$size_mangroves)	0.0000000
66	lutjanus_gibbus_pres	df.sample_data$mpanon-mpa	0.0000000
79	lutjanus_gibbus_pres	df.sample_data$depth10m	0.0000000
86	lutjanus_gibbus_pres	df.sample_data$northsouth	0.0000000
96	lutjanus_gibbus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
106	lutjanus_gibbus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
116	lutjanus_gibbus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
126	lutjanus_gibbus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
136	lutjanus_gibbus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
146	lutjanus_gibbus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
156	lutjanus_gibbus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
166	lutjanus_gibbus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
176	lutjanus_gibbus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
186	lutjanus_gibbus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
27	lutjanus_monostigma_pres	log(df.sample_data$distance_seagrass)	0.0000000
37	lutjanus_monostigma_pres	df.sample_data$size_seagrass	0.0000000
47	lutjanus_monostigma_pres	log(df.sample_data$distance_mangroves)	0.0000000
57	lutjanus_monostigma_pres	log(df.sample_data$size_mangroves)	0.0000000
67	lutjanus_monostigma_pres	df.sample_data$mpanon-mpa	0.0000000
710	lutjanus_monostigma_pres	df.sample_data$depth10m	0.0000000
87	lutjanus_monostigma_pres	df.sample_data$northsouth	0.0000000
97	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
107	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
117	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
127	lutjanus_monostigma_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
137	lutjanus_monostigma_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
147	lutjanus_monostigma_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
157	lutjanus_monostigma_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
167	lutjanus_monostigma_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
177	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
187	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
28	mulloidichthys_flavolineatus_pres	log(df.sample_data$distance_seagrass)	0.0000000
38	mulloidichthys_flavolineatus_pres	df.sample_data$size_seagrass	0.0000000
48	mulloidichthys_flavolineatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
58	mulloidichthys_flavolineatus_pres	log(df.sample_data$size_mangroves)	0.0000000
68	mulloidichthys_flavolineatus_pres	df.sample_data$mpanon-mpa	0.0000000
712	mulloidichthys_flavolineatus_pres	df.sample_data$depth10m	0.0000000
88	mulloidichthys_flavolineatus_pres	df.sample_data$northsouth	0.0000000
98	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
108	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
118	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
128	mulloidichthys_flavolineatus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
138	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
148	mulloidichthys_flavolineatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
158	mulloidichthys_flavolineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
168	mulloidichthys_flavolineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
178	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
188	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
29	parupeneus_barberinus_pres	log(df.sample_data$distance_seagrass)	0.0261392
39	parupeneus_barberinus_pres	log(df.sample_data$distance_mangroves)	0.0486641
49	parupeneus_barberinus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0167372
59	parupeneus_barberinus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0217512
210	stethojulis_trilineata_pres	log(df.sample_data$distance_seagrass)	0.0000000
310	stethojulis_trilineata_pres	df.sample_data$size_seagrass	0.0000000
410	stethojulis_trilineata_pres	log(df.sample_data$distance_mangroves)	0.0000000
510	stethojulis_trilineata_pres	log(df.sample_data$size_mangroves)	0.0000000
610	stethojulis_trilineata_pres	df.sample_data$mpanon-mpa	0.0000000
713	stethojulis_trilineata_pres	df.sample_data$depth10m	0.0000000
89	stethojulis_trilineata_pres	df.sample_data$northsouth	0.0000000
99	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
109	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
119	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
129	stethojulis_trilineata_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
139	stethojulis_trilineata_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
149	stethojulis_trilineata_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
159	stethojulis_trilineata_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
169	stethojulis_trilineata_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
179	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
189	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
211	lethrinus_microdon_pres	log(df.sample_data$distance_seagrass)	0.0000000
311	lethrinus_microdon_pres	df.sample_data$size_seagrass	0.0000000
411	lethrinus_microdon_pres	log(df.sample_data$distance_mangroves)	0.0000000
511	lethrinus_microdon_pres	log(df.sample_data$size_mangroves)	0.0000000
611	lethrinus_microdon_pres	df.sample_data$mpanon-mpa	0.0000000
714	lethrinus_microdon_pres	df.sample_data$depth10m	0.0000000
810	lethrinus_microdon_pres	df.sample_data$northsouth	0.0000000
910	lethrinus_microdon_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
1010	lethrinus_microdon_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
1110	lethrinus_microdon_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1210	lethrinus_microdon_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1310	lethrinus_microdon_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1410	lethrinus_microdon_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1510	lethrinus_microdon_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1610	lethrinus_microdon_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1710	lethrinus_microdon_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1810	lethrinus_microdon_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
212	lethrinus_obsoletus_pres	log(df.sample_data$distance_seagrass)	0.0000000
312	lethrinus_obsoletus_pres	df.sample_data$size_seagrass	0.0000000
412	lethrinus_obsoletus_pres	log(df.sample_data$distance_mangroves)	0.0000000
512	lethrinus_obsoletus_pres	log(df.sample_data$size_mangroves)	0.0000000
612	lethrinus_obsoletus_pres	df.sample_data$mpanon-mpa	0.0000000
715	lethrinus_obsoletus_pres	df.sample_data$depth10m	0.0000000
811	lethrinus_obsoletus_pres	df.sample_data$northsouth	0.0000000
911	lethrinus_obsoletus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
1011	lethrinus_obsoletus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
1111	lethrinus_obsoletus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1211	lethrinus_obsoletus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1311	lethrinus_obsoletus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1411	lethrinus_obsoletus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1511	lethrinus_obsoletus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1611	lethrinus_obsoletus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1711	lethrinus_obsoletus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1811	lethrinus_obsoletus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
213	lutjanus_ehrenbergii_pres	log(df.sample_data$distance_seagrass)	0.0000000
313	lutjanus_ehrenbergii_pres	df.sample_data$size_seagrass	0.0000000
413	lutjanus_ehrenbergii_pres	log(df.sample_data$distance_mangroves)	0.0000000
513	lutjanus_ehrenbergii_pres	log(df.sample_data$size_mangroves)	0.0000000
613	lutjanus_ehrenbergii_pres	df.sample_data$mpanon-mpa	0.0000000
716	lutjanus_ehrenbergii_pres	df.sample_data$depth10m	0.0000000
812	lutjanus_ehrenbergii_pres	df.sample_data$northsouth	0.0000000
912	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
1012	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
1112	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1212	lutjanus_ehrenbergii_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1312	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1412	lutjanus_ehrenbergii_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1512	lutjanus_ehrenbergii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1612	lutjanus_ehrenbergii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1712	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1812	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
214	lutjanus_fulvus_pres	log(df.sample_data$distance_seagrass)	0.0000000
314	lutjanus_fulvus_pres	df.sample_data$size_seagrass	0.0000000
414	lutjanus_fulvus_pres	log(df.sample_data$distance_mangroves)	0.0000000
514	lutjanus_fulvus_pres	log(df.sample_data$size_mangroves)	0.0000000
614	lutjanus_fulvus_pres	df.sample_data$mpanon-mpa	0.0000000
717	lutjanus_fulvus_pres	df.sample_data$depth10m	0.0000000
813	lutjanus_fulvus_pres	df.sample_data$northsouth	0.0000000
913	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
1013	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
1113	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1213	lutjanus_fulvus_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1313	lutjanus_fulvus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1413	lutjanus_fulvus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1513	lutjanus_fulvus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1613	lutjanus_fulvus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1713	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1813	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
215	parupeneus_barberinoides_pres	log(df.sample_data$distance_seagrass)	0.0000000
315	parupeneus_barberinoides_pres	df.sample_data$size_seagrass	0.0000000
415	parupeneus_barberinoides_pres	log(df.sample_data$distance_mangroves)	0.0000000
515	parupeneus_barberinoides_pres	log(df.sample_data$size_mangroves)	0.0000000
615	parupeneus_barberinoides_pres	df.sample_data$mpanon-mpa	0.0000000
718	parupeneus_barberinoides_pres	df.sample_data$depth10m	0.0000000
814	parupeneus_barberinoides_pres	df.sample_data$northsouth	0.0000000
914	parupeneus_barberinoides_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
1014	parupeneus_barberinoides_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
1114	parupeneus_barberinoides_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1214	parupeneus_barberinoides_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1314	parupeneus_barberinoides_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1414	parupeneus_barberinoides_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1514	parupeneus_barberinoides_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1614	parupeneus_barberinoides_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1714	parupeneus_barberinoides_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1814	parupeneus_barberinoides_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
268	scolopsis_bilineata_pres	df.sample_data$northsouth	0.0178490
216	epinephelus_merra_pres	log(df.sample_data$distance_seagrass)	0.0000000
316	epinephelus_merra_pres	df.sample_data$size_seagrass	0.0000000
416	epinephelus_merra_pres	log(df.sample_data$distance_mangroves)	0.0000000
516	epinephelus_merra_pres	log(df.sample_data$size_mangroves)	0.0000000
616	epinephelus_merra_pres	df.sample_data$mpanon-mpa	0.0000000
719	epinephelus_merra_pres	df.sample_data$depth10m	0.0000000
815	epinephelus_merra_pres	df.sample_data$northsouth	0.0000000
915	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass	0.0000000
1015	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
1115	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1215	epinephelus_merra_pres	df.sample_data\(size_seagrass:df.sample_data\)depth10m	0.0000000
1315	epinephelus_merra_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1415	epinephelus_merra_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1515	epinephelus_merra_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1615	epinephelus_merra_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1715	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)size_seagrass:df.sample_data$depth10m	0.0000000
1815	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000

log(size_seagrass), log(size_mangroves), log(distance_seagrass) & log(distance_mangroves)

glm_tab <- data.frame(species=c(), coefficient=c(), pvalue=c())
my_nur_species <- df.species_all$colname_pres[c(1:3,25:28,36,39,40,42,47,52:54,58,66,84:86,88,91:100,102:104)]

for (sp in my_nur_species){
  print(sp)
res <- NULL
  tryCatch(
  res <- glm(df.sample_data[,c(sp)] ~ log(df.sample_data$distance_seagrass) * log(df.sample_data$size_seagrass) * log(df.sample_data$distance_mangroves) * log(df.sample_data$size_mangroves) * df.sample_data$mpa * df.sample_data$depth * df.sample_data$north, family="binomial"),
    error=function(e){ print("GLM kon niet uitgevoerd worden.");print(geterrmessage())}
  )
  if(is.null(res)){
    next
  }
  
  coefs <- as.data.frame(coef(summary(res)))
  coefs <- subset(coefs,coefs$`Pr(>|z|)`<=0.05)
  coefs <- data.frame(species=rep(sp,nrow(coefs)),coefficient=rownames(coefs),pvalue=coefs$`Pr(>|z|)`)
  coefs <- subset(coefs, coefs$coefficient != '(Intercept)')
  glm_tab <- rbind(glm_tab, coefs)
  if(nrow(coefs)==0){
    next
  }
  print(paste("AIC",sp,": ",summary(res)$aic))
  par(mfrow=c(1,2)) 
  plot(fitted(res),residuals(res),xlab="Fitted values", ylab="Residuals", abline(h=0, lty=2))
  title(sp)
  tryCatch( 
    lines(smooth.spline(fitted(res), residuals(res))), 
    error=function(e){}  )
  qqnorm(res$residuals)
  qqline(res$residuals) 
}

## [1] "abudefduf_lorenzi_pres"
## [1] "abudefduf_sexfasciatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC abudefduf_sexfasciatus_pres :  1768.09536267762"

## [1] "abudefduf_vaigiensis_pres"
## [1] "cheilinus_chlorourus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilinus_chlorourus_pres :  2488.96843045997"

## [1] "cheilinus_undulatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "cheilio_inermis_pres"
## [1] "cheilodipterus_quinquelineatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC cheilodipterus_quinquelineatus_pres :  7174.6433710452"

## [1] "fistularia_commersonii_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC fistularia_commersonii_pres :  4363.23840669406"

## [1] "halichoeres_argus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_argus_pres :  3065.66688468584"

## [1] "halichoeres_hortulanus_pres"
## [1] "AIC halichoeres_hortulanus_pres :  371.775000085554"

## [1] "halichoeres_scapularis_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC halichoeres_scapularis_pres :  6597.94491681932"

## [1] "lethrinus_harak_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_harak_pres :  254.261920334703"

## [1] "lutjanus_decussatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_decussatus_pres :  2633.14304401644"

## [1] "lutjanus_gibbus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_gibbus_pres :  830.960374560578"

## [1] "lutjanus_monostigma_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_monostigma_pres :  758.873067782343"

## [1] "mulloidichthys_flavolineatus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC mulloidichthys_flavolineatus_pres :  18131.9140013368"

## [1] "parupeneus_barberinus_pres"
## [1] "AIC parupeneus_barberinus_pres :  448.158014854641"

## [1] "siganus_guttatus_pres"
## [1] "siganus_virgatus_pres"
## [1] "sphyraena_barracuda_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "stethojulis_trilineata_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC stethojulis_trilineata_pres :  3714.45264568995"

## [1] "plectorhinchus_flavomaculatus_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "plectorhinchus_lineatus_pres"
## [1] "lethrinus_microdon_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lethrinus_microdon_pres :  4579.50032702876"

## [1] "lethrinus_obsoletus_pres"
## [1] "lutjanus_ehrenbergii_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_ehrenbergii_pres :  398.436533891172"

## [1] "lutjanus_fulviflamma_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulviflamma_pres :  758.873067782343"

## [1] "lutjanus_fulvus_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC lutjanus_fulvus_pres :  3209.84149824231"

## [1] "parupeneus_barberinoides_pres"

## Warning: glm.fit: algorithm did not converge

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC parupeneus_barberinoides_pres :  2344.7938169035"

## [1] "scolopsis_bilineata_pres"

## Warning: glm.fit: algorithm did not converge

## [1] "AIC scolopsis_bilineata_pres :  383.251957955146"

## Warning in smooth.spline(fitted(res), residuals(res)): smoothing parameter value too large
## setting df = 1  __use with care!__

## [1] "scolopsis_ciliata_pres"
## [1] "scarus_psittacus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC scarus_psittacus_pres :  18924.8743758974"

## [1] "epinephelus_merra_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC epinephelus_merra_pres :  4219.06379313759"

## [1] "siganus_spinus_pres"

## Warning: glm.fit: fitted probabilities numerically 0 or 1 occurred

## [1] "AIC siganus_spinus_pres :  6165.42107614992"

knitr::kable(glm_tab, escape=TRUE)

	species	coefficient	pvalue
2	abudefduf_sexfasciatus_pres	log(df.sample_data$distance_seagrass)	0.0000000
3	abudefduf_sexfasciatus_pres	log(df.sample_data$size_seagrass)	0.0000000
4	abudefduf_sexfasciatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
5	abudefduf_sexfasciatus_pres	log(df.sample_data$size_mangroves)	0.0000000
6	abudefduf_sexfasciatus_pres	df.sample_data$mpanon-mpa	0.0000000
7	abudefduf_sexfasciatus_pres	df.sample_data$depth10m	0.0000000
8	abudefduf_sexfasciatus_pres	df.sample_data$northsouth	0.0000000
9	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
10	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
11	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
12	abudefduf_sexfasciatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
13	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
14	abudefduf_sexfasciatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
15	abudefduf_sexfasciatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
16	abudefduf_sexfasciatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
17	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
18	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
19	abudefduf_sexfasciatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m	0.0000000
21	cheilinus_chlorourus_pres	log(df.sample_data$distance_seagrass)	0.0000000
31	cheilinus_chlorourus_pres	log(df.sample_data$size_seagrass)	0.0000000
41	cheilinus_chlorourus_pres	log(df.sample_data$distance_mangroves)	0.0000000
51	cheilinus_chlorourus_pres	log(df.sample_data$size_mangroves)	0.0000000
61	cheilinus_chlorourus_pres	df.sample_data$mpanon-mpa	0.0000000
71	cheilinus_chlorourus_pres	df.sample_data$depth10m	0.0000000
81	cheilinus_chlorourus_pres	df.sample_data$northsouth	0.0000000
91	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
101	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
111	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
121	cheilinus_chlorourus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
131	cheilinus_chlorourus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
141	cheilinus_chlorourus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
151	cheilinus_chlorourus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
161	cheilinus_chlorourus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
171	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
181	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
191	cheilinus_chlorourus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m	0.0000000
22	cheilodipterus_quinquelineatus_pres	log(df.sample_data$distance_seagrass)	0.0000000
32	cheilodipterus_quinquelineatus_pres	log(df.sample_data$size_seagrass)	0.0000000
42	cheilodipterus_quinquelineatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
52	cheilodipterus_quinquelineatus_pres	log(df.sample_data$size_mangroves)	0.0000000
62	cheilodipterus_quinquelineatus_pres	df.sample_data$mpanon-mpa	0.0000000
72	cheilodipterus_quinquelineatus_pres	df.sample_data$depth10m	0.0000000
82	cheilodipterus_quinquelineatus_pres	df.sample_data$northsouth	0.0000000
92	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
102	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
112	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
122	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
132	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
142	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
152	cheilodipterus_quinquelineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
162	cheilodipterus_quinquelineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
172	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
182	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
192	cheilodipterus_quinquelineatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m	0.0000000
23	fistularia_commersonii_pres	log(df.sample_data$distance_seagrass)	0.0000000
33	fistularia_commersonii_pres	log(df.sample_data$size_seagrass)	0.0000000
43	fistularia_commersonii_pres	log(df.sample_data$distance_mangroves)	0.0000000
53	fistularia_commersonii_pres	log(df.sample_data$size_mangroves)	0.0000000
63	fistularia_commersonii_pres	df.sample_data$mpanon-mpa	0.0000000
73	fistularia_commersonii_pres	df.sample_data$depth10m	0.0000000
83	fistularia_commersonii_pres	df.sample_data$northsouth	0.0000000
93	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
103	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
113	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
123	fistularia_commersonii_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
133	fistularia_commersonii_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
143	fistularia_commersonii_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
153	fistularia_commersonii_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
163	fistularia_commersonii_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
173	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
183	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
193	fistularia_commersonii_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m	0.0000000
24	halichoeres_argus_pres	log(df.sample_data$distance_seagrass)	0.0000000
34	halichoeres_argus_pres	log(df.sample_data$size_seagrass)	0.0000000
44	halichoeres_argus_pres	log(df.sample_data$distance_mangroves)	0.0000000
54	halichoeres_argus_pres	log(df.sample_data$size_mangroves)	0.0000000
64	halichoeres_argus_pres	df.sample_data$mpanon-mpa	0.0000000
74	halichoeres_argus_pres	df.sample_data$depth10m	0.0000000
84	halichoeres_argus_pres	df.sample_data$northsouth	0.0000000
94	halichoeres_argus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
104	halichoeres_argus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
114	halichoeres_argus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
124	halichoeres_argus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
134	halichoeres_argus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
144	halichoeres_argus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
154	halichoeres_argus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
164	halichoeres_argus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
174	halichoeres_argus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
184	halichoeres_argus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
194	halichoeres_argus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m	0.0000000
911	halichoeres_hortulanus_pres	df.sample_data$mpanon-mpa	0.0471597
921	halichoeres_hortulanus_pres	df.sample_data$depth10m	0.0000043
931	halichoeres_hortulanus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0004988
941	halichoeres_hortulanus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000042
95	halichoeres_hortulanus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000023
96	halichoeres_hortulanus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000016
97	halichoeres_hortulanus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0002525
98	halichoeres_hortulanus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000040
99	halichoeres_hortulanus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0009668
25	halichoeres_scapularis_pres	log(df.sample_data$distance_seagrass)	0.0000000
35	halichoeres_scapularis_pres	log(df.sample_data$size_seagrass)	0.0000000
45	halichoeres_scapularis_pres	log(df.sample_data$distance_mangroves)	0.0000000
55	halichoeres_scapularis_pres	log(df.sample_data$size_mangroves)	0.0000000
65	halichoeres_scapularis_pres	df.sample_data$mpanon-mpa	0.0000000
75	halichoeres_scapularis_pres	df.sample_data$depth10m	0.0000000
85	halichoeres_scapularis_pres	df.sample_data$northsouth	0.0000000
910	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
105	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
115	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
125	halichoeres_scapularis_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
135	halichoeres_scapularis_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
145	halichoeres_scapularis_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
155	halichoeres_scapularis_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
165	halichoeres_scapularis_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
175	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
185	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
195	halichoeres_scapularis_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m	0.0000000
26	lethrinus_harak_pres	log(df.sample_data$distance_seagrass)	0.0000000
36	lethrinus_harak_pres	log(df.sample_data$size_seagrass)	0.0000000
46	lethrinus_harak_pres	log(df.sample_data$distance_mangroves)	0.0000000
56	lethrinus_harak_pres	log(df.sample_data$size_mangroves)	0.0000000
66	lethrinus_harak_pres	df.sample_data$mpanon-mpa	0.0000000
76	lethrinus_harak_pres	df.sample_data$northsouth	0.0000000
86	lethrinus_harak_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
912	lethrinus_harak_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
27	lutjanus_decussatus_pres	log(df.sample_data$distance_seagrass)	0.0000000
37	lutjanus_decussatus_pres	log(df.sample_data$size_seagrass)	0.0000000
47	lutjanus_decussatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
57	lutjanus_decussatus_pres	log(df.sample_data$size_mangroves)	0.0000000
67	lutjanus_decussatus_pres	df.sample_data$mpanon-mpa	0.0000000
77	lutjanus_decussatus_pres	df.sample_data$depth10m	0.0000000
87	lutjanus_decussatus_pres	df.sample_data$northsouth	0.0000000
913	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
106	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
116	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
126	lutjanus_decussatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
136	lutjanus_decussatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
146	lutjanus_decussatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
156	lutjanus_decussatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
166	lutjanus_decussatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
176	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
186	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
196	lutjanus_decussatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m	0.0000000
28	lutjanus_gibbus_pres	log(df.sample_data$distance_seagrass)	0.0000000
38	lutjanus_gibbus_pres	log(df.sample_data$size_seagrass)	0.0000000
48	lutjanus_gibbus_pres	log(df.sample_data$distance_mangroves)	0.0000000
58	lutjanus_gibbus_pres	log(df.sample_data$size_mangroves)	0.0000000
68	lutjanus_gibbus_pres	df.sample_data$mpanon-mpa	0.0000000
78	lutjanus_gibbus_pres	df.sample_data$northsouth	0.0000000
88	lutjanus_gibbus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
914	lutjanus_gibbus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
29	lutjanus_monostigma_pres	log(df.sample_data$distance_seagrass)	0.0000000
39	lutjanus_monostigma_pres	log(df.sample_data$size_seagrass)	0.0000000
49	lutjanus_monostigma_pres	log(df.sample_data$distance_mangroves)	0.0000000
59	lutjanus_monostigma_pres	log(df.sample_data$size_mangroves)	0.0000000
69	lutjanus_monostigma_pres	df.sample_data$mpanon-mpa	0.0000000
79	lutjanus_monostigma_pres	df.sample_data$depth10m	0.0000000
89	lutjanus_monostigma_pres	df.sample_data$northsouth	0.0000000
915	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
107	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
117	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
127	lutjanus_monostigma_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
137	lutjanus_monostigma_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
147	lutjanus_monostigma_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
157	lutjanus_monostigma_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
167	lutjanus_monostigma_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
177	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
187	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
197	lutjanus_monostigma_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m	0.0000000
210	mulloidichthys_flavolineatus_pres	log(df.sample_data$distance_seagrass)	0.0000000
310	mulloidichthys_flavolineatus_pres	log(df.sample_data$size_seagrass)	0.0000000
410	mulloidichthys_flavolineatus_pres	log(df.sample_data$distance_mangroves)	0.0000000
510	mulloidichthys_flavolineatus_pres	log(df.sample_data$size_mangroves)	0.0000000
610	mulloidichthys_flavolineatus_pres	df.sample_data$mpanon-mpa	0.0000000
710	mulloidichthys_flavolineatus_pres	df.sample_data$depth10m	0.0000000
810	mulloidichthys_flavolineatus_pres	df.sample_data$northsouth	0.0000000
916	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
108	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
118	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
128	mulloidichthys_flavolineatus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
138	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
148	mulloidichthys_flavolineatus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
158	mulloidichthys_flavolineatus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
168	mulloidichthys_flavolineatus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
178	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
188	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
198	mulloidichthys_flavolineatus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m	0.0000000
1881	parupeneus_barberinus_pres	df.sample_data$mpanon-mpa	0.0375768
189	parupeneus_barberinus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0186833
211	stethojulis_trilineata_pres	log(df.sample_data$distance_seagrass)	0.0000000
311	stethojulis_trilineata_pres	log(df.sample_data$size_seagrass)	0.0000000
411	stethojulis_trilineata_pres	log(df.sample_data$distance_mangroves)	0.0000000
511	stethojulis_trilineata_pres	log(df.sample_data$size_mangroves)	0.0000000
611	stethojulis_trilineata_pres	df.sample_data$mpanon-mpa	0.0000000
711	stethojulis_trilineata_pres	df.sample_data$depth10m	0.0000000
811	stethojulis_trilineata_pres	df.sample_data$northsouth	0.0000000
917	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
109	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
119	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
129	stethojulis_trilineata_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
139	stethojulis_trilineata_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
149	stethojulis_trilineata_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
159	stethojulis_trilineata_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
169	stethojulis_trilineata_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
179	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1810	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
199	stethojulis_trilineata_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m	0.0000000
212	lethrinus_microdon_pres	log(df.sample_data$distance_seagrass)	0.0000000
312	lethrinus_microdon_pres	log(df.sample_data$size_seagrass)	0.0000000
412	lethrinus_microdon_pres	log(df.sample_data$distance_mangroves)	0.0000000
512	lethrinus_microdon_pres	log(df.sample_data$size_mangroves)	0.0000000
612	lethrinus_microdon_pres	df.sample_data$mpanon-mpa	0.0000000
712	lethrinus_microdon_pres	df.sample_data$northsouth	0.0000000
812	lethrinus_microdon_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
918	lethrinus_microdon_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
213	lutjanus_ehrenbergii_pres	log(df.sample_data$distance_seagrass)	0.0000000
313	lutjanus_ehrenbergii_pres	log(df.sample_data$size_seagrass)	0.0000000
413	lutjanus_ehrenbergii_pres	log(df.sample_data$distance_mangroves)	0.0000000
513	lutjanus_ehrenbergii_pres	log(df.sample_data$size_mangroves)	0.0000000
613	lutjanus_ehrenbergii_pres	df.sample_data$mpanon-mpa	0.0000000
713	lutjanus_ehrenbergii_pres	df.sample_data$northsouth	0.0000000
813	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
919	lutjanus_ehrenbergii_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
214	lutjanus_fulviflamma_pres	log(df.sample_data$distance_seagrass)	0.0000000
314	lutjanus_fulviflamma_pres	log(df.sample_data$size_seagrass)	0.0000000
414	lutjanus_fulviflamma_pres	log(df.sample_data$distance_mangroves)	0.0000000
514	lutjanus_fulviflamma_pres	log(df.sample_data$size_mangroves)	0.0000000
614	lutjanus_fulviflamma_pres	df.sample_data$mpanon-mpa	0.0000000
714	lutjanus_fulviflamma_pres	df.sample_data$northsouth	0.0000000
814	lutjanus_fulviflamma_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
920	lutjanus_fulviflamma_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
215	lutjanus_fulvus_pres	log(df.sample_data$distance_seagrass)	0.0000000
315	lutjanus_fulvus_pres	log(df.sample_data$size_seagrass)	0.0000000
415	lutjanus_fulvus_pres	log(df.sample_data$distance_mangroves)	0.0000000
515	lutjanus_fulvus_pres	log(df.sample_data$size_mangroves)	0.0000000
615	lutjanus_fulvus_pres	df.sample_data$mpanon-mpa	0.0000000
715	lutjanus_fulvus_pres	df.sample_data$depth10m	0.0000000
815	lutjanus_fulvus_pres	df.sample_data$northsouth	0.0000000
922	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
1010	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
1110	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1210	lutjanus_fulvus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1310	lutjanus_fulvus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1410	lutjanus_fulvus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1510	lutjanus_fulvus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1610	lutjanus_fulvus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1710	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1811	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
1910	lutjanus_fulvus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m	0.0000000
216	parupeneus_barberinoides_pres	log(df.sample_data$distance_seagrass)	0.0000000
316	parupeneus_barberinoides_pres	log(df.sample_data$size_seagrass)	0.0000000
416	parupeneus_barberinoides_pres	log(df.sample_data$distance_mangroves)	0.0000000
516	parupeneus_barberinoides_pres	log(df.sample_data$size_mangroves)	0.0000000
616	parupeneus_barberinoides_pres	df.sample_data$mpanon-mpa	0.0000000
716	parupeneus_barberinoides_pres	df.sample_data$northsouth	0.0000000
816	parupeneus_barberinoides_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
923	parupeneus_barberinoides_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
258	scolopsis_bilineata_pres	df.sample_data$mpanon-mpa	0.0040082
259	scolopsis_bilineata_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0368528
260	scolopsis_bilineata_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0238990
261	scolopsis_bilineata_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0397846
262	scolopsis_bilineata_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0369840
217	scarus_psittacus_pres	log(df.sample_data$distance_seagrass)	0.0000000
317	scarus_psittacus_pres	log(df.sample_data$size_seagrass)	0.0000000
417	scarus_psittacus_pres	log(df.sample_data$distance_mangroves)	0.0000000
517	scarus_psittacus_pres	log(df.sample_data$size_mangroves)	0.0000000
617	scarus_psittacus_pres	df.sample_data$mpanon-mpa	0.0000000
717	scarus_psittacus_pres	df.sample_data$depth10m	0.0000000
817	scarus_psittacus_pres	df.sample_data$northsouth	0.0000000
924	scarus_psittacus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
1011	scarus_psittacus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
1111	scarus_psittacus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1211	scarus_psittacus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1311	scarus_psittacus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1411	scarus_psittacus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1511	scarus_psittacus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1611	scarus_psittacus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1711	scarus_psittacus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1812	scarus_psittacus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
1911	scarus_psittacus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m	0.0000000
218	epinephelus_merra_pres	log(df.sample_data$distance_seagrass)	0.0000000
318	epinephelus_merra_pres	log(df.sample_data$size_seagrass)	0.0000000
418	epinephelus_merra_pres	log(df.sample_data$distance_mangroves)	0.0000000
518	epinephelus_merra_pres	log(df.sample_data$size_mangroves)	0.0000000
618	epinephelus_merra_pres	df.sample_data$mpanon-mpa	0.0000000
718	epinephelus_merra_pres	df.sample_data$depth10m	0.0000000
818	epinephelus_merra_pres	df.sample_data$northsouth	0.0000000
925	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
1012	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
1112	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1212	epinephelus_merra_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1312	epinephelus_merra_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1412	epinephelus_merra_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1512	epinephelus_merra_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1612	epinephelus_merra_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1712	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1813	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
1912	epinephelus_merra_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m	0.0000000
219	siganus_spinus_pres	log(df.sample_data$distance_seagrass)	0.0000000
319	siganus_spinus_pres	log(df.sample_data$size_seagrass)	0.0000000
419	siganus_spinus_pres	log(df.sample_data$distance_mangroves)	0.0000000
519	siganus_spinus_pres	log(df.sample_data$size_mangroves)	0.0000000
619	siganus_spinus_pres	df.sample_data$mpanon-mpa	0.0000000
719	siganus_spinus_pres	df.sample_data$depth10m	0.0000000
819	siganus_spinus_pres	df.sample_data$northsouth	0.0000000
926	siganus_spinus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass)	0.0000000
1013	siganus_spinus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves)	0.0000000
1113	siganus_spinus_pres	log(df.sample_data\(distance_seagrass):df.sample_data\)depth10m	0.0000000
1213	siganus_spinus_pres	log(df.sample_data\(size_seagrass):df.sample_data\)depth10m	0.0000000
1313	siganus_spinus_pres	log(df.sample_data\(distance_mangroves):df.sample_data\)depth10m	0.0000000
1413	siganus_spinus_pres	log(df.sample_data\(size_mangroves):df.sample_data\)depth10m	0.0000000
1513	siganus_spinus_pres	df.sample_data\(mpanon-mpa:df.sample_data\)depth10m	0.0000000
1613	siganus_spinus_pres	df.sample_data\(depth10m:df.sample_data\)northsouth	0.0000000
1713	siganus_spinus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_seagrass):df.sample_data$depth10m	0.0000000
1814	siganus_spinus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)distance_mangroves):df.sample_data$depth10m	0.0000000
1913	siganus_spinus_pres	log(df.sample_data\(distance_seagrass):log(df.sample_data\)size_mangroves):df.sample_data$depth10m	0.0000000